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Boms lems for the Magazine Dise 


We have included two additional ‘bonus’ items on 
this month's magazine disc. The first of these is an 
updated weather program, incorporating the 
previously separate temperature and barometer 
programs into a single application. Not 
infrequently programs published in BEEBUG 
prompt other readers to submit updates and 
extensions, the details of which are usually 
printed in the magazine. In this case the process 
of combining and updating two previous programs 
to form a single new application is impractical to 
list in the magazine and thus the magazine disc is 
the only way in which we can offer this worthwhile 
update. 


From time to time, we also receive contributions 
from readers which are simply too long (or 
sometimes too specialised) to allow publication in 
printed form. Such a case is the Numerical 
Fortunes program which is also included on this 
month's magazine disc. 


Subscribers to the magazine disc will receive both 
bonus items automatically. Otherwise you can order 
the disc just for this month to obtain all the programs 
in the magazine plus the bonus items as well. 


In this run up to Christmas, we also have a 
further bonus item lined up for the December 
issue disc, and we will look to see if we can't 
include a few additional seasonal offerings as well. 


Upgrading to an Archimedes 


The recent announcements by Acorn must have 
tempted many readers who have not yet done so 
to consider upgrading to an Archimedes. The new 
systems in particular, the A3010, the A3020 and 
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the A4000, offer an excellent low budget entry into 
the Archimedes world. All the new systems are 
now readily available through dealers including 
Beebug Ltd. Note too, that all Archimedes systems 
are now supplied as new with the latest RISC OS 
3.10 version of the operating system, and all 
previous systems can also be upgraded to this 
standard (for reference the cost of this upgrade is 
just under £50 inc. VAT). 


One result of the many new machines released by 
Acorn is that upgrading by existing Archimedes 
owners provides opportunities for buying 
secondhand systems at bargain prices. An A400/1 
series or an A3000 (preferably with a minimum of 
2Mb of memory and a hard disc) still provides an 
excellent way into the Archimedes range, 
particularly when upgraded to RISC OS 3.10. If 
you are at all interested in this route then Beebug 
can again provide information on prices and 
availability, and guide you through the options 
available. Our back cover feature on upgrading 
will be updated shortly to take into account the 
recent changes in Acorn's Archimedes line up. 


BEEBUG Contents 


BEEBUG is a magazine which is very dependent 
upon its readers. Most of the features in the 
magazine are written by readers, some on a 
regular basis. However, if there are articles or 
programs of a type which you would like to see in 
the magazine in the future then why not let us 
know. Indeed many readers are often only too 
ready too respond to a suggestion from another 
user, All feedback from readers is most welcome, 
and certainly does help us in planning future 
issues. 


M.W. 


Beebug November 1992 


SKI WITH A BEEB 

The Microsport XSP-1 Ski Trainer, designed for use 
with any BBC micro, provides a (relatively) low 
cost route into ski training. The trainer, selling at 
£499 ex. VAT, consists of skis with sensors and 
connecting cable, software on disc, and instruction 
booklet. Drawings are also included for the 
construction of a ‘ski slope’ ramp. 


The ski trainer in action 
The trainer is just entering production after extensive 
trials by novices through to pann at dry ski 


slopes, the Daily Mail Ski Show, Army and Royal 
Marines. The ski trainer is aimed particularly at the 
schools market. In use, the weight distribution, 
edging etc. of the skier is converted to a path ae 
a training or slalom course unfolding across the 
screen of the computer. Keyboard input provides 
control over course steepness, effect of snow type, 
and length of skis. 


More expensive versions of the trainer are also under 
development for the professional, home skiing and 
fitness markets based on the latest PCs. 
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For more information please contact J.C.Hayter, 
Gilberts Knapp, Beeches Hill, Bishops Waltham, 
Hampshire SO3 IFE, tel. 0489 892544. 


ALL FORMATS COMPUTER FAIRS 
The latest All Formats Computer Fairs are listed 
below (opening times 10am to 4pm unless 
otherwise stated): 
6 Nov National Motorcycle Museum, 
Birmingham (J6 - M42) till 8pm. 
7 Nov London (South), Sandown 
Racecourse, Esher, Surrey (J9/10-M25). 
8 Nov Wales (South), University Union, 
Park Place, Cardiff. 
14 Nov London (North), Novotel, 
Hammersmith, London (off M4/A4). 
15 Nov West, Brunel Centre, Temple 
Meads, Bristol (M32). 
21 Nov East Midlands, De Montfort Hall, 
Granville Road, Leicester. 
22 Nov North East, Northumbria Centre, 
Washington (A194M) 
28 Nov Noth West, Haydock Park 
Racecourse (J23 - M6). 
29 Nov Scotland West, City Hall, 
Candleriggs, Glasgow (off M8). 
5 Dec National Motorcycle Museum, 
Birmingham (J6 - M42) till 8pm. 
12 Dec London (South), Sandown 
Racecourse, Esher, Surrey (J9/10-M25). 
13 Dec Wales (South), University Union, 
Park Place, Cardiff. 


For further information contact John Riding on 
0225 868100, or fax 0225 868200. 


COMPUTER SHOPPER SHOW 

Such is the importance of Acorn’s new 
computers that the company has booked a major 
stand at the Computer Shopper Show which 
takes place at the Grand Hall, Olympia, London 
from 19th to 22nd November 1992. If you didn’t 
manage to see Acorn’s new range at the BBC 
Acorn User Show in October, then you have 
another chance at Computer Shopper. Beebug 
will also have a stand where you can talk to our 
staff for help and guidance. If you are 
considering an upgrade to an Archimedes then 
this is an excellent opportunity to obtain some 
objective advice. B 
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To celebrate the tenth anniversary of the founding 
of BEEBUG magazine, we have put together a 
selection of the best programs which we have 
published over the past ten years. This disc is 
packed with applications, utilities and games most 
of which have not been available previously other 
than when first published in BEEBUG. All the 
programs come with full on-screen help files, which 
can be printed out as well for permanent reference. 


BEEBUGMIOUN 
Anniversary Disc 


Level 
00002 


Lines 
00000 


Pieces 
90015 


Score 
00251 


: Shownext 
: Speed Up 
: Sound 


Hext 
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Celebrate BEEBUG's 10th anniversary with this disc at the special low price of £4.95 


and you will have something to celebrate too. 


DRAUGHTS - An implementation of the classic board game 
in which you pit your wits against a computerised opponent. 


KEYSTRIP DESIGNER - A very well written program to 
enable the creation, editing and printing of function key strips. 


GARP - GARP (Geographical Atlas using Radial Projection) 
allows views of the globe to be displayed from any point above 
the Earth's surface. 


MULTI-COLUMN PRINTING - This utility formats any text 
file into columns, and prints the result using an Epson FX-80 or 
compatible printer. 


PERPETUAL CALENDAR - This program can display or 
print the calendar month by month for any year between 1753 
and 5000 A.D. in the United Kingdom, or even earlier in other 
countries. 


QUAD - Quad is a Tetris-like game, in which you must 
manipulate falling blocks to slot into each other. Dangerously 
addictive! 


STEALTH - In this game you play against an opponent (or the 
computer), who sets a number of targets for you to find, and 
you must use your skill to discover the locations of the targets 
in as few goes as possible. 


RECURSIVE TREES - This fascinating program uses 
recursion to create an infinite variety of tree-like designs - you 
choose a set of numbers, and the computer does the rest. 


THE WORLD BY DAY AND NIGHT - This program will 
draw a map of the world showing graphically where the sun is 
in the sky or where it's night at every spot on earth. 


CROSSWORD COMPILER - This program allows 
crosswords to be designed and the clues compiled. 


PBB3a — 3,5" ADFS £4.95 inc. VAT + £1 p&p 
PBB5a 5.25"DFS40/80T £4.95 inc. VAT + £1 p&p 
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Troubleshooting Guide (Part 1) 
Gareth Leyshon looks at display problems and Master configuration settings. 


Having used a Model B since January 
1984 and a Master 128 for several years, I 
have run up against many technical 
hitches; and six years’ experience with a 
dozen Beebs and Masters in my 
comprehensive school provided many 
further problems which range from such 
trivial matters as a wrongly inserted lead 
to some rather subtle effects involving 
missing sideways RAM memory. 


In this series of articles I hope to share with 
you methods of diagnosing and fixing all 
the faults I have come across - probably this 
will be most useful for readers at First 
Course level, perhaps getting to grips with a 
secondhand or reconditioned machine, but 
old hands may find one or two new tricks, 
and might like to share any that I have not 
unearthed through the BEEBUG Hints & 


Tips page. 


ATTENTION BEEB USERS 

If you use a Beeb (as opposed to a 
Master) you should make sure that you 
have the most recent versions of the 
Basic language and the Operating 
System (OS) in the computer: switch on 
the machine and type the Basic 
command REPORT to obtain a copyright 
message. A 1982 copyright means that 
you have the more recent Basic II; a 1981 
message means you have the older Basic 
I which you should have replaced. 
Typing “HELP «Return» will tell you the 
OS number with 1.2 (and 2.0 for the 
Model B+) being the most recent. 


If your Beeb is a 16K Model A (you can 
see the memory given as 16K or 32K in 
the screen message when you switch on) 
then you will not have enough memory 
to run 16 colour or high resolution 
graphics modes; you will be well 
advised to get a memory upgrade. 
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There will be few machines without 32K 
memory, Basic II and OS 1.2 still in 
circulation, and much modern software 
assumes that you have these; if you do 
have an older system then this could be 
the cause of some software failing to 
work properly. 


MASTER CMOS RAM 

Master Series micros contain a small 
amount of memory which is powered by 
batteries when the machine is switched 
off, called the CMOS RAM. This contains 
the configuration settings which tells the 
machine how to set itself up when you 
turn it on. When the battery runs down, 
you may find the computer comes on in 
a strange state, or hangs up, i.e. pressing 
keys has no effect. Changing the battery 
is a simple operation which must be 
performed about once a year. It is not 
difficult to do, but beware - if you have 
recently purchased the machine as new, 
your operating on it may invalidate the 
guarantee. The Master Compact has no 
battery, but does have a special chip 
which can retain these configuration 
settings. 


ASK A POLICEMAN 

If you suspect that your battery is 
running down, the easiest way to test it 
is to set the real time clock. From Basic, 
type TIMES="hh:mm:ss" where 
hh:mm:ss is the current time in hours, 
minutes and seconds; the three numbers 
must include an initial zero if less than 
ten (e.g. 08:11:00), and the colons and 
quotation marks must be included. Type 
*TIME to get the computer to display the 
time to ensure it is correct. 


Once you have done this, leave the 
computer switched off for several hours - 
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perhaps overnight. Then switch on, and 
type *TIME to give the time again. If the 
battery is weak, then the clock will have 
run slowly, compared to the real time. If 
the battery is very weak, the time will 
read as garbage. To use the computer 
while in this forgetful state, or to coax it 
into life if the battery is so weak that it 
hangs up as soon as you switch on, then 
switch off, and then turn on while 
depressing the ‘R’ key. This resets the 
CMOS RAM and you will be asked to 
press BREAK. Type in the following 
commands to set up the RAM: 


*CONFIGURE CAPS (Start with CAP LOCK on) 
*CONFIGURE FILE 9 (DFS disc filing) 
*CONFIGURE LANG 12 (Basic) 

*CONFIGURE REPEAT 7 (Keyboard repeat) 
*CONFIGURE DELAY 40 (Keyboard delay) 
*CONFIGURE MODE 7 (Screen mode) 

*CONFIGURE NOBOOT (Shift-Break for Boot) 
The information in brackets should not 
be entered, it is simply there to tell you 
what is going on. 


Use Ctrl-Break (this means press Break 
while holding down the Ctrl key) to reset 
the Master, making it recognise the new 
settings. You will have to start up in this 
way every time you switch on until you 
get a new battery pack. 


If you have had the battery pack replaced 
professionally, the returned machine may 
not have been configured exactly 
according to your needs. The golden rule 
is that while the machine is working 
properly, you should type “STATUS and 
make a list of everything which appears. 
Keep the list in a safe place, so that 
should the computer lose its CMOS 
settings, you can reset it to values which 
you know work properly. “STATUS at 
any time will show what the current 
settings are. 


I will deal with problems which can arise 
due to particular configuration settings 
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being wrong in the text as the topics 
arise. In each case the problem can be 
cured with the relevant *CONFIGURE 
command, taking effect as soon as Ctrl- 
Break is pressed. Screen settings will be 
discussed below, with keyboard, printer 
and disc settings discussed in future 
articles (see Appendix 2 of the Welcome 
Guide for more details on configuration). 


You may wish to replace the battery 
yourself (but refer to the guarantee 
invalidation mentioned above) - the 
details in the Welcome Guide (issue two) 
are out of date, and an addendum sheet 
should accompany the book. Here is a 
summary of the process: firstly, remove 
the four Phillips screws (which may be 
marked FIX) to remove the computer’s 
lid. The old battery may be in a plastic 
compartment near the loudspeaker or 
between the metal-boxed power supply 
at the back left and the main circuit 
board. Your new pack will probably fit in 
the latter position. A short lead connects 
the battery pack via a three-way 
connector to a receptacle on the left edge 
of the circuit board (with the keyboard at 
the front) - the connector will not fit the 
wrong way around. Screw the new 
battery pack in place, and replace the lid. 
Turn the computer on while holding the 
‘R’ key to initiate a reset and set it up as 
discussed earlier. 


GETTING THE PICTURE 

There are various ways of connecting 
visual display units to your computer. 
An ordinary TV set is connected by a 
lead between the TV’s aerial socket and 
the socket at the back of the computer 
marked UHF. It is very easy, on a Master, 
to connect the lead to the identical- 
looking socket marked audio out and 
spend half an hour wondering why you 
aren’t getting a picture. The Master 
Compact requires a special adaptor to 
work with a normal TV. 
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Alternatively, you can connect the 
computer to a dedicated monitor. A 
colour monitor, sometimes called an RGB 
monitor, will come with a lead to plug 
into the socket marked RGB on the back 
of the computer. Monochrome monitors 
(the colour scheme is often green-on- 
black but sometimes orange-on-black 
depending on the phospher coating 
used) usually plug on to the socket 
marked Composite Video. The connection 
here is made by pushing the plug on to 
the socket with the socket pins and plug 
grooves aligned. Then the plug’s collar is 
given a quarter turn to lock it. This socket 
can also be used to connect the computer 
to other video equipment, say, a video 
recorder, but it only gives a black and 
white output. This is not a fault but a 
designed feature; your dealer can 
perform a simple operation to obtain 
colour from the video socket, but this 
will make the RGB socket give out black 
and white. 


If you switch on the computer and 
monitor and don’t have a picture, the 
first thing to check is whether any of the 
display’s brightness, colour or contrast 
controls are turned down. Otherwise, an 
absent or faulty picture could be due to 
one of the following: 


1. If you’ve got no display at all, ensure 
that you have connected the lead to the 
right socket on the computer: a TV lead 
mustn’t go into the Master’s Audio Out, 
a monochrome lead must be twist-locked 
in place, and a colour monitor lead with 
DIN plugs must go into the RGB socket - 
not into any of the other similar sockets 
or, as has been known to happen, forced 
around the Composite Video Connector. 


2. If an RGB monitor gives a coloured 
display which rolls diagonally, this may 
be due to the plug being wrongly 
inserted in the monitor’s socket. The 
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plug has a ridge on the inside of its rim 
which matches a dimple in the socket. 
Some RGB monitors may appear to have 
two dimples. If one contains a metal 
contact while the other does not, the 
dimple on the plug will usually match 
with the dimple without the contact in 
the socket. 


3. If the display rolls vertically or 
horizontally, and cannot be cured by 
adjusting the horizontal or vertical hold, 
you may have a loose connection: this is 
especially common in monochrome 
monitors. Usually wiggling the lead 
where it connects to the monitor will find 
an optimum position where no flicker 
occurs; if the plug on the monitor end of 
the lead has a split metal rim, this could 
be crimped to give a tighter fit. 


4. If you are using an RGB monitor and 
you get a display showing words which 
you expect to be white but appear as 
magenta, cyan or yellow, this suggests 
that one of the wires in the connecting 
lead is broken. Wiggle the wire at various 
points, including where it goes into the 
plug on each end, and at the middle of 
the wire; also wiggle the plug’s position 
in the socket. If any of these causes the 
display to flash white then you are 
making and breaking the faulty 
connection - you should buy a new 
monitor lead. The discolouration comes 
from the wire carrying one of the three 
colour components being broken; for 
instance, if the writing which ought to be 
white is yellow (made of red plus green) 
then the blue is not getting through - and 
any part of the screen which ought to be 
blue will be invisible. 


5. If you are using a television, make sure 
that you have tuned the set to the right 
channel, channel 36. Video recorders, 
satellite receivers and the new television 
station Channel Five may all be 
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producing signals on this channel, and 
cause interference if you use a splitter to 
combine their input with the 
computer/TV lead. Connect the 
computer lead directly into the television 
to minimise such interference. If you use 
the same TV set for computing and for 
watching a channel which causes such 
interference, use a switch-box instead of 
a splitter to switch between the two 
sources. 


If none of these effect a solution, then try 
to establish whether the monitor, the lead 
or the computer is at fault - swap the 
lead and/or monitor with that of another 
computer (if available), or try another TV 
set. Then at least you will know which 
item is faulty before you call your dealer. 


Having established a steady picture, 
there may still be room for improvement: 


1. If the display is too high or too low on 
the screen, with lines being lost off the 
top or bottom, the *TV command can 
rectify this. To find the range of the 
screen, hold your finger on the Return 
key until a column of arrows (>) reaches 
the bottom of the screen and pushes the 
message off the top. To lower by one, two 
or three lines, the number is 255, 254, or 
253 respectively, while to raise by one, 
two or three lines, the code number is 
equal to the number of lines. Zero resets 
to the normal position. Type *TV number 
(e.g *TV 2 to lower the display by two 
lines) and press the Return key. Then 
press Break; the screen should now 
appear in a better position. 


2. If the display is stationary but flickers 
when displaying graphics, use *TV 
followed by the relevant number (1-3 or 
253-255, or 0 for no change), followed by 
a comma then 1, e.g. *TV 0,1. Follow this 
with the Break key. The flicker should 
then be reduced. *TV 0,0 reverses this. 
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For instance, *TV 255,1 will shift the 
screen down one line and reduce the 
flicker. 


Master users can tackle either or both 
problems by using *CONFIGURE TV 
m,n with m and n being the appropriate 
numbers as used with *TV. 


Further options are available to Master 
users: when you print a character in 
the bottom right corner of the screen, 
the computer may move the display 
up by one line. To prevent this, use 
*CONFIGURE NOSCROLL. To allow 
it, *CONFIGURE SCROLL. If a 
program gives a screen with a garbled 
bottom line or two, or the top line 
disappears, try changing this scroll 
option. 


You can set the default screen mode 
with *CONFIGURE MODE m, choosing 
m from any of the eight modes, 
numbered 0 to 7, or their shadow modes 
(which save memory) numbered 128 to 
135. The usual mode configuration is 
135 but some programs which work fine 
on Beebs won't run with shadow mode 
memory on Masters and require a 
setting of 7 instead. If a program seems 
to hang up and your mode setting is for 
a shadow mode, try changing to a 
normal memory mode; it may cure the 
problem. 


That’s all there’s space for this month. 
Next time T'lI take a look at problems 
involving the keyboard and sideways 
ROM and RAM. 


Beebug can supply the following: 


Basic ROM code 0207a £21.21 
1.2 OS ROM code 0208a £14.81 
Battery packs code 0807a £ 4.70 
All prices include VAT. B 
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A Scientific Calculator using RPN Logic 


Ruben Hadekel shows you how to Reverse your Polish Notation and live. 


First, a word to the unscientific: if 
logarithms leave you cold, you have 
forgotten all you learnt about sines, 
cosines and tangents, and have never 
even heard of hyperbolic functions, don’t 
be put off. A ‘scientific’ calculator can be 
at least as efficient and easy to use as a 
plain calculator when it comes to 
mundane tasks such as totting up 
columns of figures. Just disregard any 
instructions or features you don’t need. 


There are frequent occasions when a 
calculator is much more to the point than 
a computer, and with the Cale program 
listed at the end of this article you can 
use your Beeb as a very convenient 
calculator, both for simple arithmetic and 
for engineering and scientific 
calculations. 


The BBC or Archimedes series micro 
with the Calc program is more efficient 
than the usual pocket calculator, for the 
following reasons: 


* With very few exceptions, any 
operation requires just one key press, 
whereas scientific pocket calculators 
require two key presses for many 
operations (this being necessary to keep 
the number of keys small enough to fit 
on a pocket device). 


* The contents of the memory are 
permanently on display. 


* Any constant set up, together with the 
associated arithmetic operator, is always 
on display. 


* The complete stack is on view, which 


can be useful in some circumstances, e.g. 
if you're not sure what you keyed in last. 
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* Instructions can be shown at any time 
by pressing ‘Z’, without interfering with 
any calculation in progress. 


Mgaory Mode: Degree 


T=TAN, AS, AC 
i e CH 
+x 
!, 


suse constant 


igures 
#6284 » Mem 


Fa f6= Mi 
> fBfexchange X & Y 


The calculator with an empty stack 


Now is the time to type in the Calc 
program. The following will be much 
clearer if you have the program running 
in front of you. 


RPN stands for Reverse Polish (or 
Lucasiewicz) Notation. Early electronic 
calculators (circa 1970) were based on 
RPN plus Operational Stack, and this 
system is still used by the most 
sophisticated calculators to-day (for 
instance, those made by Hewlett- 
Packard). It is also used in some computer 
programming languages, e.g. Forth and 
Lisp, and by most microprocessors in 
their internal operations. It is efficient and 
elegant. It takes about five minutes to get 
the hang of it (honest). 


If [OP] stands for an arithmetic 
operator, i.e. +, -, *, /, \ (raise to 
power) associating two variables, say 
x and y, then instead of keying y [OP] 
x =, with RPN the sequence is y 
Return x [OP], there being no ‘=’ key. 
The result is placed in what will be 
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termed the X register, and displayed, 
as with any calculator. 


The stack, in ascending order, consists of 
registers X, Y, Z and T, holding variables 
x, y, z and t (stacks can be of any height, 
four being enough for present purposes). 
Return copies x to Y, y to Z, and z to T, t 
being lost - i.e. the stack is ‘pushed up’. 
[OP] places the result in X (where it is 
displayed), while t is copied to Z, and z 
to Y - i.e. the stack ‘drops’. 


Mgnary Mode: Degree 


a 
a 
12312 
119825 
4-0/7 in 
«+ and s Pups Fa aes without SHIFT) 


eto 


=SIN, C=COS, T=TAN, AS 


AS 
> HE, Hfesinn ete, LECH, AS ÈS ERES R-SAR 
z tè eee 
#SARCxZPi2, ESINTCKJTI EL po EA 


tzclear constant, K=use constant 


y LETE> cl 11 
Seat rlan oye Ra eB AYE hen 


Zexchange X a Y 


RATAN are 


The calculator with one value on the stack 


Thus (w*x)+(y*z) is evaluated by: w 
Return x * y Return z * +, and 
(w+x)*(y+z) by: w Return x + y Return z 
+ *. Brackets are never required, and 
there is no hierarchy of operators. 


Return is not necessary if the variable in 
the X register is the result of an 
operation, or has been recalled from 
memory, or results from some stack 
manipulation, as it is then returned 
automatically when the next variable is 
keyed in. With that proviso, the rule is 
simple: if you cannot operate on a 
number immediately, Return it. Thus 
a*(b+c*d) is keyed as 

a Return b Return c Return d* + * 
Summarised instructions are available on 
screen from the program. 
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Pocket RPN calculators display the X 
register only, but the other registers can 
be viewed by using a ‘Roll’ key, f9. In this 
program all the registers are on display, 
but the ‘Roll’ key is retained (operate it, 
after filling the stack with different 
numbers, to see its action). The contents 
of calculator memory, and any constant 
entered together with its associated 
operator, are also displayed. 


Numbers can, if desired, be entered in 
exponential notation (e.g. 1.54E-2). As 
with most pocket calculators, the ‘-’ is 
obtained with the minus key, but a 
‘unary’ or prefix minus can only be 
obtained by the change sign (+/-) key 
(key “N”). 


; Degree 


M m 
lenory yo 


E24 


as in BASIC 
d # are obtainable without SHIFT) 


AT=ASH 
ACs Birt 
C=x* 
N=+7- 
é al constant 


» <DELETE> 1 11 fi es 
ck ziel ear. 8 £2281. Mem 


THAN GOREN a+ 


The calculator with a full stack 


The effect of all the keys is shown in the 
display which, incidentally, gives more 
information than the usual calculator. 
Any character keys not shown (apart 
from ‘E’ which is used for exponents) 
have no effect, except in response to the 
“Press any key” prompt in case of error. 
The functions provided are those 
available on fairly elementary 
scientific calculators. They include LN 
(‘natural’, or base e, logarithm), but LOG 
(‘common’, or base 10, logarithm) is not 
provided directly, as I believe it is a mere 
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A Scientific Calculator using RPN Logic 


throw-back from the days of log tables, 
and of questionable utility. It can of 
course still be calculated, since 
LOG(x)=LN(x) /LN(10). 


Keys ‘+’ and ‘* produce + and * 
commands respectively whether shifted 
or not, and so the Shift key need never be 
used. In fact, all operations, functions 
and commands (such as memory 
transfers) require just one key press, with 
the exception of hyperbolic and inverse 
trigonometric functions, which take two 
successive key strokes; ‘S’, ‘C’ and ‘T’ 
being prefixed by ‘H’ and ‘A’ 
respectively. i 


Keys ʻO’ and ‘D’ respectively give at one 
stroke the area of a circle from its 
diameter, and vice versa, this being a 
useful feature for engineering work. Slide 
rules catered for this need, and it is a pity 
calculator manufacturers have not 
followed suit. 


Errors are trapped, with an appropriate 
message including “Press any key”, this 
action restoring the status quo. 


It is interesting to compare different 
types of calculator logic. RPN seemed not 
to suit the mass market, and some early 
calculators replaced it with something 
called arithmetical logic, which was 
rather clumsy. This soon yielded to 
algebraic logic, wherein everything is 
evaluated as you go along, so that the 
sequence a+b*c is evaluated as (a+b)"c. 
Algebraic logic in its simplest form is still 
the norm for many simple calculators. It 
cannot evaluate a sum of products such 
as (a*b)+(c*d), without using the memory 
key. 


For scientific calculators with algebraic 


logic it is usual nowadays to have a 
hierarchy of operators, just as in Basic. In 


Beebug November 1992 


particular, multiplication/division take 
precedence over addition/subtraction, so 
that a+b*c is evaluated as a+(b*c) instead 
of (a+b)*c. You may remember BODMAS 
- Brackets Off, Divide, Multiply, Add, 
Subtract - from your schooldays. Sums of 
products are evaluated efficiently, but 
products of sums such as (a+b)“(c+d) 
require the use of memory keys, or 
brackets. As implied above, RPN is 
equally efficient in both cases. 


RPH Logic 


HLS Hh never required. Enter number; scientifio notation, e.g, 1.88E-3, 


For functions (roots, wij etc) key character as per display, 
Note: 0 and D give area of circle from diameter and vice versa. 


is 


Binary operations: ke CRETURNJ, which copies bottom line (x) to next line (y), 
m pushes stack up, Then key addendzsubtraħend/ayitiplier/divisor/index, 
lowed by one of +-#/°, Stack drops as operation is performed, 


Rule: nyaber cannot be operated on immediately, CRETURHI 
ik for AT Res pietia 1p CREED i IRAS ete 
CRETURK] is inoperative if value of number is zi 

If, however, x has not just been keved in, and is not CRETURK] tak 
pispe autonitically as nest number is keyed in, ané TRETURAI key need not 


F8 to £9: Fill stack with different numbers, and press keys to see effect, 


Press gay key to start or continue calculation 
ul 


Press ping run to return to these instructions: 


The help screen 


A word about pi (lines 2390 and 2400). 
On the screen you'll see it represented as 
exactly that, pi. If you have a Master or 
Compact the actual pi character is 
available and can be included in the 
listing. On the Master use PRINT 
CHRS$(240) to get it onto the screen then 
use the cursor and Copy keys to get it 
into the listing. With the Master 
Compact, code 240 can be generated by 
pressing the special character key (the 
one to the right of ‘P’) while holding 
down Ctrl-Shift, and then keying a lower 
case p. 


Note: Binary fractions cannot express 
decimals exactly, apart from special 
cases, and this could lead to a calculation 
result which should be, say, 240.30 
appearing as 240.299999. The procedure 
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A Scientific Calculator using RPN Logic 


PROCround gets over this problem in 
nearly all situations (I believe calculators 
get over it by using binary coded decimal 
notation instead of plain binary). 


10 REM Program Calc 

20 REM Version B 1.0 

30 REM Author Ruben Hadekel 

40 REM BEEBUG November 1992 

50 REM Program subject to copyright 
60 : 

100 VDU23,1,0;0;0;0; 

110 DIMX$ (4) ,X(4),P$(4) :CLS:M=0:KS="": 
D$=1:EF%=1:REM EF$-1 for auto-return 

120 *FX 225,128 

130 *FX229,1 

140 A$="N.1234567890" :BS="-+;*:/*":B1$ 
="-4*/^" :C$="LXRIODPF [QJKZ" 

150 D$="SCT"; ES=B$+C$+D$+"AH" 

160 F$="E.1234567890-+" 

170 FOR J=1 TO 4:X$(J)="0":NEXT 

180 CLS:PRINTTAB(0, 10);"Scientific cal 
culator with RPN logic"'"by Ruben Hadeke 
1": PRINT: PRINT 

190 PRINT"Press Z for instructions"'"o 
r any other key to run" 

200 G=GET: IF G=90 MODE3:PROCinstr 

210 MODE6: PROCstart 

220 PROCkeys 

230 ON ERROR PROCerr:GOTO 210 

240 G=GET 

250 IF G=27 CLS:END 

260 IF G<127 GOTO 280 ELSE N%=G-126 

270 ON N% GOSUB 1650,1660,1670, 1680,16 
90,1700,1710, 1720, 1740,1750,1760 

280 IF G=13 AND VAL(X$(4))=0 GOTO 240 

290 IF G=13 FOR J=1 TO 3:X$(J) =X$ (J+1) 
:NEXT: PROCstack (1) :EF8=0:GOTO 240 

300 G$=CHR$ (G) :IF INSTR(AS,G$)«»0 PROC 
input:GOTO 250 

310 X(4)=VAL(X$(4)) 

320 IF G$<>"A" GOTO 370 

330 GS=GETS :M%=INSTR(DS,GS) : IF M%=0 GO 
TO 240 ELSE N%=M%+3*D% 

340 IF (N%=1 OR N%=2 OR N%=4 OR N$=5) 
AND ABS(X(4))>1 PROCtrap:PROCstack (4) :GO 
TO 240 

350 ON N% GOSUB 1120,1130,1140,1150,11 


60,1170 

360 PROCconv:GOTO 240 

370 IF G$<>"H" GOTO 410 

380 GS=GETS:NÈ=INSTR(D$,G$):IF N%=0 GO 
TO 240 

390 ON N% GOSUB 1180,1190,1200 

400 PROCconv:GOTO 240 

410 Mè=INSTR(D$,G$):IF M8=0 GOTO 440 E 
LSE N%=M3+3*D$ 

420 ON N% GOSUB 1210,1220,1230,1240,12 
50,1260 

430 PROCconv:GOTO 240 

440 NS=INSTR(C$,G$) : IF N$=0 GOTO 500 

450 IF N%=13 MODE3:PROCinstr:GOTO 210 

460 IF (N%=1 AND X(4)<=0) OR ((N$=3 OR 
N%=6 OR N&=8) AND X(4)«0) OR ((N3=4 OR 
N$=10) AND X(4)=0) PROCtrap:GOTO 240 

470 ON N% GOSUB 1270,1280,1290, 1300, 13 
10,1320, 1330, 1340, 1350, 1360, 1850, 1940 

480 PROCconv 

490 PROCstack(4) :GOTO 240 

500 Nè=INSTR(B$,G$):IF N%=0 GOTO 240 

510 X(3)=VAL(X$(3)) , 

520 IF G$=";" GS="+" 

530 IE GS= aa gòZ en 

540 PROChin(X(3),X(4)) 

550 X$(3)=X$(2):X$(2)=X$(1) 

560 PROCconv: PROCstack(1) :GOTO 240 

570 END 

580 : 

1000 DEF PROCstack (K) 

1010 FOR J=K TO 4 

1020 US=INSTR(X$(J),"E"): IF U$x-0 T$=20 
-U%:GOTO 1040 

1030 US=INSTR(X$(J),"."):IF U%<>0 T8-20 
-U% ELSE T$=19-LEN(X$ (J) ) 

1040 PRINTTAB(0, 2+J-(J=4) ) ;SPC(40) 

1050 PRINTTAB (T%, 2+J-(J=4) ) ;X$(J) :NEXT 
1060 ENDPROC 

1070 : 

1080 DEF PROCmem 

1090 PRINTTAB(0,1);SPC(20) : PRINTTAB(1,1 
);M 
1100 EF%=1:ENDPROC 
LITO: 5 
1120 X(4)=ASN(X(4) ) : RETURN 
1130 X(4)=ACS(X(4) ) : RETURN 


continued on page 52 
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The Galilean Satellites of Jupiter 


Eric Hunt tells us to keep watching the skies. 


INTRODUCTION 

Jupiter is the largest planet of the solar 
system, a gaseous giant with a diameter 
more than eleven times that of the Earth. 
Of the four major planets, it is the one 
which is nearest to us. When visible in 
the night sky it is always very brilliant, 
brighter than any star, and through 
binoculars it is clearly visible as a 
yellowish disk. Binoculars will also show 
the four principal satellites: the 
‘Galileans’, so called because they were 
discovered by the Italian astronomer 
Galilei Galileo in 1610. These satellites, in 
order of their distance from Jupiter, have 
been named Io, Europa, Ganymede and 
Callisto. The program Jupiter calculates 
and displays the relative positions of the 
Galilean satellites, as seen from the 
Earth, for a given date and time. 


USING THE PROGRAM 

Type in the program and save it to disc. 
When run, the program first asks 
whether you wish the pictorial display to 
appear as through an astronomical 
(inverting) telescope or as through 
binoculars. You are then asked to enter 
the time of the observation: the year (e.g. 
1992), the month (as a number, 1-12), the 
day, the hour (as GMT), and the minute. 
The program takes a few seconds to 
calculate the relative positions of the 
satellites, which are then displayed. 


The results are presented in two formats: 
a picture of the positions of the satellites 
relative to Jupiter, as seen through 
binoculars or a telescope; and a table of 
the co-ordinates of each satellite’s 
apparent position, in units of Jupiter’s 
equatorial radius (X co-ordinates are 
positive if east and negative if west, and 
Y co-ordinates are positive if north and 
negative if south). Finally, the program 
offers you the option of making a hard 
copy of the results. 
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If all appears to be working, then as a 
final check enter the following time and 
date: 22:00hrs on 2nd May 1992. This 
should give the following results: 

I (x 4.72, y -0.07, W to E) 

II (x -8.92, y -0.06, W to E) 

m (x -10.51, y -0.22, W to E) 

IV (x 6.39, y -0.53, W to E) 


PROGRAM DETAILS 

The structure of the program is fairly 
simple and its working should be largely 
self evident. PROCjulian calculates the 
Julian day number from the given date 
and time. The Julian day number is 
calculated from 4713 B.C. in days and 
fractions of days, each day starting at 
noon; 0936 hrs. 26th April 1977 would be 
J.D. 2443259.9. This data is then used in 
PROCcale to calculate the relative 
positions of the Galilean satellites. This 
calculation is quite involved so take care 
when typing it in, and is based on the 
methods described in texts on 
astronomical calculations (for example, J. 
Meeus’s “Astronomical Algorithms” see 
below). PROCdisplay shows the results, 
and asks if a printout of the display is 
required. The printout is handled by 
PROCprint, and uses Beebug’s 
Dumpmaster ROM to produce a screen 
dump of either the pictorial part of the 
display or the whole screen. If 
Dumpmaster is not installed, then you 
can substitute your own screen dump 
routine here (lines 1980 - 2030). 


SEE FOR YOURSELF 

The program has a number of uses. Since 
it reproduces an observable phenomenon, 
there are possible applications in science 
education. Also, it should prove useful to 
anyone with an interest in observational 
astronomy. 


For those who wish to venture out under 
the night sky and take a look at the real 


15 


The Galilean Satellites of Jupiter 


thing for themselves, there are two 
requirements. First, you have to find 
Jupiter. Monthly star charts, published in 
some daily newspapers and in 
astronomy magazines and year books, 
will tell you in which part of the night 
sky to look. Like all planets, Jupiter is 
only observable during certain months of 
the year and unfortunately is not well 
placed in the second half of 1992. It will 
be clearly visible towards the end of Feb. 
1993 next year. With this information, 
you should have no trouble in finding 
Jupiter - the planet really is an 
outstandingly brilliant object. 


The second requirement is some sort of 
optical aid. A small telescope or pair of 
binoculars is sufficient for this (in fact, the 
Galilean satellites are stellar magnitude 5 
or 6, and would be easily seen with the 
naked eye if it was not for their proximity 
to the overpowering brilliance of Jupiter 
itself). Let your eyes adjust to the dark 
and with your binoculars or telescope you 
should have no problem finding the 
principal satellites, especially if, having 
used the program, you know what you 
are looking for. 


Reference: Astronomical Algorithms 
by Jean Meeus 
Published by Willmann-Bell Inc. 
ISBN 0-943396-35-2 
Available from Rosemary Naylor, Earth & 


Sky, 256 Bacup Road, 
Todmorden, Lancs OL14 7HJ 


10 REM Program Jupiter 
20 REM Version B 1.0 
30 REM Author Eric Hunt 
40 REM BEEBUG November 1992 
50 REM Program subject to copyright 
60 : 
100 ON ERROR MODE7 :REPORT: PRINT" at li 
ne ";ERL:END 
110 MODE7:VDU23,1,0;0;0;0;:PROCsetup:P 
ROCtitle 
120 REPEAT :MODE7 : PROCinput : PROCjulian: 
PROCcalc 
130 MODE1: PROCdisplay 
140 UNTIL A%=78 
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150 MODE7 : END 
160 : 


1000 DEF PROCjulian 

1010 DY=DY+ (XD+XM/60) /24 

1020 Ml=MN:Y1=YR:IFMN<3 THENM1=MN+12:Y1 
=Y1-1 

1030 A-Y1 DIV100:B=2-A+A DIV4 

1040 C=INT(365.25*Y1) -694025: D=INT (30.6 
001* (M1+1) ) 

1050 DJ=B+C+D+DY-0.5 

1060 J=DJ+2415020 

1070 ENDPROC 

1080 : 

1090 DEF PROCcalc 

1100 V=FNc(2.3497+1.94756E-05“DJ) 

1110 X=0.0058*SIN(V) 


1120 M=FNc(6.25659+0.01720197+D3) 

1130 N=FNc(3.9327240.001450112“DJ+X) 
1140 JL=FNe (3 .86847+0.015751909*DJ-x) 
1150 B=FNc(0.0969*SIN(N)+0.00291*SIN(2* 
N)) 

1160 K=dL+0.03344*SIN(M)+0.00035*SIN(2* 
M) -B 

1170 RE=1.00014-0.01672*COS(M) -0.00014* 
COS (2*M) 

1180 RJ=5.20867-0.25192+COS(N)-0.0061+C 
OS (2*N) a 

1190 EJ=SQR (RJ*RJ+RE*RE-2*RJ*RE*COS (K) ) 
1200 W=RE/EJ*SIN(K) 

1210 P-ATN(W/SQR(1-W“W)+1E-20) 

1220 L=FNc(4.1548+0.00145021*DJ+X+B) 
1230 Q=0.0536*SIN(L+0.777) -0.0375*SIN(P 
)#COS(L+0.419) 

1240 Q=SIN(Q-0.0229* (RJ/EJ-1) *SIN(L-1.7 
35)) 

1250 X=DJ-EJ/173 

1260 Y=P-B 

1270 Ul=FNc (1.475686+3 .550102027*X+Y) 


1280 U2=FNc (0.724338+1.767872488*X+Y) 

1290 U3=FNc(1.919461+0.8767577181*X+Y) 
1300 U4=FNc (3 .078038+0.3750360041*xX+Y) 
1310 G=FNc(3.269+0.87808691*X) 

1320 H=FNc(5.43+0.37645406*X) 

1330 D1=FNe (2* (U1-U2) ) 

1340 D2=FNc (2* (U2-U3) ) 

1350 C1=0.00824*SIN(D1) 

1360 C2=0.01873*SIN(D2) 

1370 C3=0.00304*SIN(G) 

1380 C4=0.01475*SIN(H) 

1390 V(0)=FNc (U1+C1) 

1400 V(1)=FNc (U2+C2) 
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[ 1410 v(2)=FNc(U3+C3) 

1420 V(3)=FNe (U4+C4) 

1430 R(0)=5.9061-0.0244*C0S (D1) 

1440 R(1)=9.3972-0.0889*COS(D2) 

1450 R(2)=14.9894-0.0227*COS(G) 

1460 R(3)=26.3649-0.1944+COS(H) 

1470 FORI=0TO3 :X(I) =FNr (-R(T) *SIN(V(1) ) 
) :¥ (I) =FNr (-R(I) *COS(V(T) ) *Q) : PROCdirect 
ion (I) : NEXT 

1480 ENDPROC 

1490 : 

1500 DEF PROCinput 

1510 FORT=1T02: PRINTTAB (4, I)CHRS141;CHR 
$134;"Jupiter: Galilean Satellites" :NEXT 

1520 PRINTTAB(11,5)CHRS$133;"I or 1 = Io 
";TAB(10,6)CHR$133;"II or 2 = Europa"; TA 
B(9,7)CHRS133; “III or 3 = Ganymede”; TAB( 
10,8)CHR$133;"IV or 4 = Callisto" 

1530 PRINTTAB(14, 13) "Year: ";CHR$131; :IN 
PUT" "YR 

1540 REPEAT: PRINTTAB(6, 14) "Month (1-12) 
:";CHR$131;STRINGS (10, " ");STRINGS(10,CH 
R$8) ; : INPUT" "MN: UNTILMN>OANDMN<13 : PRINTT 
AB(23, 14) "(";2$(MN-1); ")" 

1550 REPEAT: PRINTTAB(15,15) "Day: ";CHRS1 
31; STRING$S(10, " ");STRING$ (10, CHR$8) ; : IN 
PUT" "DY :UNTILDY>0ANDDY<32 

1560 REPEAT:PRINTTAB (14,16) "Hour:"; CHR$S 
131; STRING$ (10, " *);STRINGS (10,CHR$8);:I 
NPUT" "XD: UNTILXD>- LANDXD<25 

1570 REPEAT: PRINTTAB (12,17) "Minute: ";CH 
R$131; STRINGS (10, " *) ;STRINGS(10,CHR$8) ; 
: INPUT" "XM: UNTILXM>-1ANDXM<60 

1580 ENDPROC 

1590 : 

1600 DEF PROCtitle 

1610 FORI=1T02 : PRINTTAB (4, I) CHR$S141 ; CHR 
$134;"Jupiter: Galilean Satellites" :NEXT 

1620 PRINT'"This program will plot the 
positions of"'"the Galilean satellites o 
f Jupiter for"'"a specified date and tim 
e. Positions"'"are given in units of Jup 
iter's"'"equatorial radius. X coordinate 
s are" 

1630 PRINT"positive if east and negativ 
e if west."'"Y coordinates are positive 
if north"'"and negative if south." 

1640 PRINT' "Views can be chosen to be a 
s seen in an"'"inverting telescope or as 

seem in"'"binoculars. It is assumed tha 
t the"'"observer is in the northern lati 


— 


tudes." 


1650 PRINT'';TAB(5)CHR$131;"Inverting t 
elescope (Y/N)? "; 

1660 REPEAT:Z%=GET AND &5F:UNTILZ$=&4E 
OR Z%=&59:PRINTCHRSZ$:IFZ$=&4E THENZ$=1 
ELSE Z$=-1 

1670 PRINTTAB(7,23)CHR$130; "Press SPACE 

to continue" 

1680 REPEAT: UNTILGET=&20 

1690 ENDPROC 

1700 : 

1710 DEF PROCdirection(I) 

1720 IFCOS(V(I))>0THENZS(I+16)="east to 

west" :M(I)=0 

1730 IFCOS(V(I))<OTHENZS(I+16)="west to 

east" :M(I)=1 

1740 ENDPROC 

1750 : 

1760 DEF PROCdisplay 

1770 DH=(DY-INT (DY) ) *24:DM=(DH-INT (DH) ) 
*60 

1780 COLOUR2: PRINTTAB(6,1) "Jupiter: Gal 
ilean Satellites" 

1790 VDU19,1,4;0;24,0;575;1279;863;18,0 
,129,16,29,640;733;5,18,0,0 

1800 MOVE-16, (Z%*96+16) : PRINT"N" :MOVE-1 
6, (-Z2$796+16) : PRINT" S" :MOVE(~Z%*608-16), 
16:PRINT"E" :MOVE(Z%*608-16) ,16:PRINT"W" 

1810 GCOLO,3:FORI=0103 :IFM(I) X=-Z%*X(I 
) *21:Y=Z%*Y (I) *21:MOVEO, 0:PLOT65,X, Y: PLO 
T65,0,-4:PLOT65, -4,0:PLOT65,0,4 

1820 NEXT 

1830 GCOLO, 2:MOVEO, 0:VDU227,11,8,225, 8, 
8,224,8,10,226 

1840 GCOLO,3:FORT=0T03:IFM(I)=0 X=-Z3*X 
(I) *21:Y=Z*Y (I) *21:MOVEO, 0: PLOT65, X,Y:P 
LOT65, 0, -4: PLOT65, -4,0:PLOT65, 0,4 

1850 NEXT 

1860 Y1=YR:IFYR>1900 AND YR<2000 THENY1 
=Y1-1900 

1870 I$=".0":IFDM>lOTHENIS="." 

1880 VDU4, 26,17, 0,17,129:PRINTTAB(1,13) 
;INT(DY);".";MN;".";¥1;"  “;INT(DH); 19; 
INT (DM) ;"h" 

1890 COLOUR3 : COLOUR128 : PRINTTAB (5, 17) 2$ 
(MN= 1). "sINT(DY).2", "YR" "+ INT (DH 
);"h ";INT(DM) ; "m": PRINTTAB(5, 19) "Julian 

Day No.: ";INT(J*100)/100 

1900 @%=&20208 : PRINTTAB(11,22) "x"; TAB (8 
)"y"; TAB(17) "moving" : FORI=OTO3 : PRINTTAB ( 
2, 1424) Z$(T+12) : PRINTTAB(6, I+24)X(I),Y(I 
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Weather Station Revisited 


William Woodall enhances the Weather Station programs from Vol.11 
Nos.2 and 3 by adding the ability to store data in separate files. 


Nick Case’s Weather Station programs 
are very useful, but obvious 
improvements that could be made 
would be to combine the Barometer and 
Temperature programs into one, and to 
be able to store the graph data in files 
separate from the main program itself. 
The extensions to the programs given on 
this month's magazine disc do just this; 
the two original programs have been 
combined into one long program, 
BarTemp, and the data files are now 
stored as separate programs, with 
temperature readings in directory t and 
barometer readings in directory b. 


The data is stored as a set of Basic DATA 
statements in the same format.as before, 
but each month's data consists ofa 
separate program numbered from line 
3000 onwards. The data is then loaded 
into the main program using the 
technique of overlays. This means that 


the data program is merged onto the end 
of the main program, so in effect you are 
changing the main program each time 
you load data in. If you would like to 

now more about the overlay method, 
see BEEBUG Vol.6 No.10. 


Data is included for both temperature and 
pressure for the first three months of 1988, 
and each data file contains a description 
of the file format, so it is an easy task to 
add your own data. Other minor 
additions include the ability to print out 
the screen using the Copy key, if you have 
a screendump routine which can be 
included in the program. Overall, this 
version of the program is much more 
user-friendly and is well worth looking at. 


Due to space restrictions, the enhanced 
programs are only available on this month's 
magazine disc. B 


The Galilean Satellites of Jupiter (continued) 


) ; TAB (19) ZS (1+16) : NEXT:Q3=610 

1910 VDU29, 0;0; :GCOL0, 1:GCOL0, 128 :MOVE4 
8,112: DRAW48 , 336: DRAW1232, 336:DRAW1232, 1 
12: DRAW48, 112 :MOVE48, 272 :DRAW1232, 272:MO 
VE208, 112 :DRAW208, 336 :MOVE496, 112 :DRAW49 
6,336 :MOVE752, 112: DRAW752, 336 

1920 COLOUR2:VDU23,1,0;0;0;0; : PRINTTAB( 
3,30) "Do you want a print-out (Y/N)? ";: 
REPEAT: I=GET AND&5F:UNTIL I=78 OR I=89 
1930 IFI=89:PROCprint 

1940 PRINTTAB(3,30)SPC(35);TAB(5,30)"In 
put another date (Y/N)? ";:REPEAT:A$=GET 
AND &5F:UNTILA$=78 OR A$=89 

1950 ENDPROC 

1960 : 

1970 DEF PROCprint 

1980 REM *** Uses DUMPMASTER ROM *** 
1990 PRINTTAB(3,30)SPC(35) ;TAB(3,30) "Gr 
aphics only or Full screen (G/F)?"; 

2000 REPEAT:A$=GET AND &5F:UNTIL A$=70 
OR A%=71 

2010 IFA%=70:PRINTTAB(3,30)SPC(35) ; :*BP 
RINT V F 


2020 IFA%=71:VDU24, 0;575; 1279; 863; : “BPR 
INT V F W2 I 

2030 VDU26 : ENDPROC 

2040 : 

2050 DEF PROCsetup 

2060 DIMZ$(19),X(3),Y(3),V(3),R(3),M(3) 
2070 tp=2*PI 

2080 vDU23,224,0,0,0,3,7,15,31,31,23,22 
5,0,0,0,192,224,240,248,248,23,226,31,31 
,15,7,3,0,0,0,23,227,248,248,240,224,192 
,0,0,0 

2090 RESTORE2100:FORI=OTO15:READZ$ (I) :N 
EXT 

2100 DATAJanuary, February, March, April,M 
ay, June, July, August, September, October, No 
vember, December, I, II, IIT, IV 

2110 ENDPROC 

2120 : 

5000 DEF FNr(W)=INT(100*W+0.5)/100 

5010 : 


5020 DEF FNc(Z) 
5030 IFZ<0 THEN Z=Z+tp*INT(ABS(Z/tp) +1) 
5040 =Z-INT(Z/tp) *tp B 
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Mr Toad’s Machine Code Corner 


This month Mr Toad's feeling a bit random. 


Greetings, mammals. This month, more 
readers’ queries - and don’t we get some 
queeries! M. Jean-Alphonse Bandit, 
proprietor of the famous restaurant Aux 
Quat’ Crapauds - you know, the one by 
the Thames - writes to ask how to get 
random numbers in assembleur and 
print them directement on the bills of the 
punters who dine in his etablissement. 
Permettez-moi de parler franchement, 
monsieur: small reptiles cherish for 
restaurateurs the same trust and 
affection that bulls feel for matadors; 
nevertheless Mr T will respond, because 
the routine to be described will at least 
keep the bills down to £255. 


Ordinary mortals tend to need random 
numbers for a variety of less exotic 
reasons. Games are the obvious example, 
but you may write a quiz or some 
training software, or perhaps some 
screen effects or sound FX. Again, you 
may be the Chancellor of the Exchequer, 
a weather forecaster, a psephologist or a 
teacher about to fill in those ridiculous 
‘forecast grade’ sheets for the GCSE 
board. Mr T has used them in more than 
one poetry-generating program - and not 
in Basic, either, because that’s too slow if 
you have a really large amount of data. 


In Basic, a fancy mathematical routine 
generates a sequence of numbers which 
are ‘random’ in the sense that they will 
spread fairly evenly across the selected 
range. They are, however, a sequence - if 
you Set the ‘seed’ to a certain point by 
calling for a random number in a 
negative range, n%=RND(-something), 
the numbers generated will always be 
the same from there on, given that the 
same range is selected. This makes it 
possible, for example, to write an 
encryption program which will EOR 
each byte of a text file with a ‘random’ 
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number. The ‘keyword’ used on 
encryption is manipulated to get a 
negative number to set the seed, and 
only that number will get you onto the 
same place in the sequence to decrypt 
the text. 


To get truly unpredictable numbers in 
Basic, convert your input routine to a 
loop which calls and discards random 
numbers while waiting for a keypress, 
else use Idea One as described below. 


In assembler you won’t want to code 
huge slabs of maths algorithms just to 
serve a ‘shoot-’em-up’ game. Don’t 
worry; Mr T is about to detail two very 
simple techniques, other than reading 
the numbers off your restaurant bill. 


IDEA ONE 
Pick up a byte from an address whose 
contents are rapidly changing. If you 
have a memory-editor which can display 
changes as they happen, take a look at 
page &FE. If not, pick an address 
between &FE00 and &FEDF and keep 
peeking its contents: 
theCowsComeHome=theCowsComeHome 

REPEAT 

PRINT; ~?&FE68;" "; 

UNTIL theCowsComeHome 


You should get a nice random-looking list 
of numbers between 0 and &FF. How does 
it work? Page &FE (‘Sheila’ to its friends) 
is mapped to I/O devices, many of which 
are things like timer registers which keep 
changing. I will just recommend the 
address &FE68 here rather than deprive 
you of the fun of trying out the others for 
yourself; there are lots of good ones. 


A DRAWBACK 


If your routine uses this method in a 
really fast sequence, you'll find that the 
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contents of your location don’t change 
quickly enough: every 10 milliseconds if 
it’s a timer low register, and 10ms is an 
awful long time in machine code. You'd 
better move on to... 


IDEA TWO 

Read the numbers from the MOS ROM. 
The area from &E000 to &FBOO is 
normally mapped in and the code in it, 
taken purely as a list of numbers, is fairly 
‘random’, especially from &E400 
onwards. It is, of course, a fixed sequence 
just like Basic’s random numbers, and 
you can use it for encryption - for an 
example see BEEBUG Vol.9 No.7. It 
doesn’t give quite such a good spread, 
but it’s fine for most purposes. You'll 
find a simple implementation of this in 
the Random program listed at the end of 
this article. 


ACTUALLY DOING IT 
First, a setup routine: we’ll pick a couple 
of page-zero addresses as an index to 
point to our stretch of ROM. Liking 
witty and original labels, Mr T will 
choose &8E and label it index and 
christen &8F indexHi. You'll need to find 
a place at the beginning of your program 
which will be run once and once only, 
such as the title screen, and write JSR 
setup there to initialise the index. The 
setup routine itself will be put directly 
before the number-reading routine 
pickOne, so we can branch back to it 
every time the index has moved along to 
the end of our ROM area. Here we go: 

„setUp 

LDA #&E4:STA indexHi \ bottom of best 
MOS ROM area 

LDA &FE68:STA index \ random start 
within page &E4 


You can ignore the last line if a random 
start to the index is not important. 
Initially, index MIGHT contain any old 
number, but a page zero location around, 
say, &80 has a high chance of containing 
zero just after power on, or it may always 
be set to the same value when you get to 
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it, so I prefer to include that line. Now for 
a simple routine to read the ROM 
address pointed to by index, update the 
index and branch back to setUp if the 
update brings us past the last page of our 
area (indexHi=&FC). In fact, we don’t do 
things in that order: 

.pickOne 

INC index:BNE readIt 

INC indexHi 

LDA indexHi:CMP #&FC:BCS setUp 

-readIt 

LDA (index) :RTS 


Do a JSR to pickOne - NOT setUp, of 
course - and the ‘random’ number is 
returned in A. This month’s competition, 
question one: why do we read the 
random byte AFTER updating the index? 


Steam-powered Beebs don’t have the 
addressing mode LDA (index), so write: 

-readIt 

LDY #0:LDA (index), Y 

RTS 
or you may get away without the LDY 
#0, accepting the further randomising 
factor that Y may contain any old 
number. It all depends on the context 
from which the routine is called and the 
purpose to which it is put. Suck it and 
see; that’s the fun of programming. 


What Mr T always does is to combine 
this routine with Idea 1 by EORing the 
‘random’ number in A with a peek from 
page &FE: 

.readIt 

LDA (index) 

EOR &FE68:RTS 


This should return nicely jumbled results 
even when called at short intervals, and 
doesn’t take a lot of time in itself. For 
super-fast arcade games it might prove 
too slow, but not for any normal purpose. 


Whatever the word ‘random’ really 
means, it certainly doesn’t mean that 
each number generated must be different 
from the last. Basic often throws up two 
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or more the same. Nevertheless, for 
many purposes it is better if this doesn’t 
happen, and it’s very easy to prevent. 
Let's say we've got another address 
somewhere - why not &8D? - labelled 
lastOne. 

.readIt 

LDA (index):EOR &FE68 

CMP lastOne:BEQ pickOne 

STA lastOne:RTS 
Easy isn’t it? 


All of this presupposes that you can then 
tailor the number produced to the range 
you require. If you want the answer to be 
small, do an AND; for example AND 
&7F will keep it at or below that value. 
Similarly, ORA #&80 will keep it at or 
above &80. Of course, not every range 
can be thus achieved without gaps in the 
coverage being produced: you may have 
to resort to some boring old CMP jobs. If 
the pickOne routine serves several 
purposes, each requiring a different 
range of numbers, you will want to puta 
tailoring routine after each call to 
pickOne, otherwise stick it before the RTS 
of pickOne. Let’s say the range required is 
&7F/127 to &23/35: 

„trimNum 

JSR pickOne 

AND #&7F \ that’s the high ones cut out 

CMP #&23:BCC trimNum 


Do NOT write ORA #&20 to cut out most 
of the low ones: if you do, you'll never 
get a number without a &20 in it - i.e. bit 
5 will always be set. If you think about it, 
you will see that you can trim numbers 
by setting or resetting an unbroken 
sequence of bits at the leftmost end of the 
byte, but if you set or reset any bit to the 
right of the leftmost unchanged bit, you 
will rule out several numbers within the 
range you're trying to achieve. Another 
example - AND #&3F is fine to cut the 
numbers down to below &40, but AND 
#&BE, whilst it does indeed cut the range 
down to &BF and below, also ensures 
that no number containing &40 - i.e. with 
bit 6 set - is ever produced, although 
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many such numbers are within your 
range. Force bit nought and you get only 
odd numbers, reset it and you get only 
evens. 


Numbers bigger than &FF are produced 
by calling our routine twice and sticking 
the results in two adjacent addresses - 
but not for the bills, please, M. Bandit. 
Assez est assez and all that. 


This month’s competition, question two: 
exactly how many numbers between 0 
and &BF inclusive have bit 6 set? Mr T 
only asks because he can’t be bothered to 
work it out. The winner gets the 
customary “I’M A SWOT” badge and a 
guided tour of Beebug’s car park round 
the back. (Oh, yes there is.) 


That doesn’t leave much room for the 
rest of the mailbag. Yes, Mr Scroper of 
Bognor, your BBC B will burn wood and 
kitchen scraps, but you'll need the 
sweep more often. No, Mrs Thumbthrust 
of Bishop’s Phumble, ordinary chips 
from the fish and chip shop aren’t the 
same, you put those in PCs. As for Herr 
Stockdoof of Bavaria: the same to you, 
mate, with Lederhosen on. 


Next month Mr T goes in for some real 
investigative journalism: is the A5000 
really full of old Electrons stuck together 
with Glu-Tack? Will British Rail finally be 
upgrading to an XZ Rainbow? Will the 
little puppy soon be doing a TV ad for 
printer paper? 

10 REM Program Random 

20 REM Version B 1.0 

30 REM Author Mr. Toad 

40 REM BEEBUG November 1992 

50 REM Program subject to copyright 

60 : 

100 FOR n%=0 TO 2 STEP 2 

110 P%=&DE00 

120 [ OPT nò 


continued on page 25 
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Graphics (3) 


Alan Wrigley continues his look at graphics 


programming. 


course As promised last 

month, we will now 
consider some specific techniques you can 
use in your programs in order to display 
graphics. First of all we will look at some 
simple shapes such as rectangles and 
circles. If you have a Master, then PLOT 
codes are provided for these shapes, as 
described in the Reference Manual. On a 
model B, however, you have to resort to 
other methods. 


RECTANGLES 
The simplest way to draw an unfilled 
rectangle is to move to the start position, 
and then use relative plotting to draw the 
shape. For example, if you want a rectangle 
500 units wide and 300 units high, with the 
top left-hand corner at co-ordinate 200,800, 
the code would look like this: 

MOVE 200,800 

PLOT 1,500,0:PLOT 1,0,-300 

PLOT 1,-500,0:PLOT 1,0,300 
Here we have used PLOT 1 (draw solid 
line relative). The same technique can be 
used for any unfilled shape that contains 
only straight lines. 


The only filled shape available on the 
model B is a triangle (PLOT code group 
80-87). However, this enables you to cover 
most straight-line shapes by breaking 
them down into triangles first. For 
example, a filled rectangle can be made up 
from two filled triangles. To produce the 
same rectangle as above, but filled, would 
therefore require the following: 

MOVE 200,800:MOVE 700,800 

PLOT 85,200,500 

PLOT 85,700,500 


PLOT code 85 works by drawing a triangle 
between the co-ordinates specified in the 
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command and the last two co-ordinates 
visited by the graphics cursor. Thus we 
have made two MOVE statements before 
the first plot. Provided you have plotted 
all the points in the correct order (see 
Figure 1), the second triangle requires no 
intermediate MOVE statement, since the 
last two points visited on the first triangle 
form the first two co-ordinates for the. 
second. With a bit of practice, you can use 
filled triangles to create almost any shape 
on the screen. For example, the following 
code would produce a star: 

MOVE 600,800:MOVE 540, 600 

PLOT 85,660,600:PLOT 85,600,400 

MOVE 760,600:MOVE 600, 660 

PLOT 85,600,540:PLOT 85,440, 600 


Fig.1 Create a rectangle from two triangles 


CIRCLES 

Master owners can plot a circle very 
simply using PLOT 149, as in the 
following example: 

MOVE 600,500:PLOT 149,800,800 
which will plot a circle outline with its 
centre at 600,500 and its circumference 
passing through 800,800. Life is much 
more difficult on the model B, which has 
no direct means of producing a circle. As 
we mentioned last month, there are some 
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useful routines in the BEEBUG 
Function/Procedure Library (Vol.11 No.2). 
Basically the technique for drawing circles 
involves calculating the co-ordinates 
around the circumference one by one using 
the SIN and COS functions. If an outline is 
required, the points are merely joined 
using DRAW or similar, while for a filled 
circle a series of filled triangles is plotted 
from the centre to each two adjacent 
circumferential points in turn. 


This would be done using a procedure 
similar to the following, which will draw a 
circle outline of radius r% with its centre at 
x%,y%: 

1000 DEF PROCcircle(x%,y%, r%) 

1010 step%=32 

1020 MOVE x%+r%, y% 

1030 FOR angle-0 TO 2*PI STEP 2*PI/steps 

1040 c$=r$*COS (angle) 

1050 s%=r%*SIN (angle) 

1060 DRAW x%+c%,y%+s% 

1070 NEXT 

1080 ENDPROC 
step% governs the number of points at 
which the circumference is plotted, i.e. the 
resolution of the circle (a value of around 
30 is usually adequate). To plot a filled 
circle rather than an outline, just amend 
the listing as follows: 

1060 MOVE x%,y%:PLOT 85,x%+c%, y3+s% 


The disadvantage of this method is that it 
requires the SIN and COS values to be 
calculated repeatedly as you go round the 
circle. The routine mentioned above in the 
Function/Procedure Library overcomes 
this problem, but there is also a way to 
speed up the procedure we have listed 
here. We can take advantage of the fact that 
a circle is symmetrical in both directions, 
and so having calculated, for example, the 
vertical co-ordinate for a given point 
relative to the centre, we know that there is 
always a point on the opposite half of the 
circle an equal number of units from the 
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First Course 


centre in the opposite direction (see Figure 
2). The same principle is true for the 
horizontal co-ordinates. As always, there is 
a trade-off between speed and memory: 
you must now keep track of the last co- 
ordinate used on each side of the circle, so 
that each DRAW operation starts from the 
correct point. 


Using symmetry for faster circle drawing 


As an example, we will plot the top and 
bottom halves of the circle together, by 
amending the listing as follows: 
1020 x1%=x3+r3:y18=y$ :x2%=x1% :y2$=y1% 
1030 FOR angle=0 TO PI STEP PI/stept 
1055 MOVE x18, y18:x18=x8+c3:y18=y3+s3 
1065 MOVE x23, y28:x28=xè+ch:y28=y3-si 
1067 DRAW x%+c%, y3-si 


Here, the last plotted position in the top 
half of the circle is stored in x1%,y1%, 
while that for the bottom half is in 
x2%,y2%. You could experiment by taking 
this one stage further and plotting all four 
quadrants of the circle from one calculation 
of the SIN and COS values. To do this you 
will need to keep four sets of co-ordinates 
instead of two, and plot at the four 
symmetrical points (x,y; x,y; -x,y; and x,- 
y). Don’t forget to change the maximum 
value of the loop in line 1030 to PI/2. 
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MIXING TEXT AND GRAPHICS 
By using the VDU5 command which we 
described last month, it is possible to 
develop routines to mix text and graphics. 
For example, you could have a general 
routine which underlines a text string or 
places it into a coloured box. The following 
procedure will place the string text$ at co- 
ordinate x%,y%, and underline it, all in the 
current graphics foreground colour. The 
4th parameter to the procedure, w%, 
specifies the number of text columns in the 
chosen mode (i.e. 20, 40 or 80). 

DEF PROCunderline(text$,x%,y%,w%) 

width3=1280/w$:VDU 5 

MOVE x%,y%:PRINT text$ 

MOVE x%,y%-32 

PLOT 1, widthè“LENtext$, 0 

VDU 4 

ENDPROC 


A four-character sprite 


To expand this example a little further, we 
will print the text in a specified colour 
(tc%), and instead of underlining, draw a 
box around it of a different colour (bc%): 
DEF PROCbox(text$,x%,y%,w%, tc%, bc) 
width%=1280/w%:VDU 5 
MOVE x%,y%:GCOL 0, tcè: PRINT text$ 
bw6=width3" (LEN(text$)+2) :bh%=72 
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MOVE x$-width$, y3-48 

GCOL 0,be3: PLOT 1, bw$,0:PLOT 1,0, bh 
PLOT 1, -bw%,0:PLOT 1,0, -bh% 

VDU 4 

ENDPROC 


In both these examples, the text is plotted 
first at the specified co-ordinates (having 
first set the colour in the case of PROCbox). 
The graphics cursor is then positioned 
relative to the text. For underlining a single 
line is drawn 32 OS units below the top of 
the text, extending for the length of the 
string. In the case of the box, the second 
colour is set and a rectangle is drawn as 
shown earlier, this time allowing a little 
more space between the lines and the text. 
Using these routines when displaying 
information from your programs will 
smarten up your screen presentation quite 
considerably. 


SPRITES 

Unlike the Archimedes and some other 
machines, the BBC micro has no direct 
provision for sprites built into its operating 
system (a sprite is a graphic object which, 
once defined, can be moved or 
manipulated as an entity). However, it is 
possible to create pseudo-sprites by 
making use of the facility to re-define text 
characters, and then plotting those 
characters using VDUS. By using several 
characters and plotting them together in a 
block you can create quite complex shapes. 


As a very simple example, we will create a 
ball from four characters, and move it 
around the screen. Type in the following 
listing and run it: 

10 MODEO 

20 vDU23,240,0,0,7,31, 63, 127,255,255 

30 VDU23,241,0,0,224,248, 252, 254, 255, 255 

40 vDU23, 242, 255,255,127, 63,31,7,0,0 

50 VDU23,243, 255, 255,254, 252, 248, 224, 0,0 

60 a$-CHRS240+CHRS241+CHRS104CHRS8 + 
CHRS8+CHRS242+CHR$243 
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70 VDUS:step3=8 

80 xst=step% :ys%=-steps 

90 x%=400:y$=400:GCOL4, 1 

100 REPEAT 

110 MOVE x%,y%:PRINTa$ 

120 *FX19 

130 MOVE x%,y%:PRINTa$ 

140 x%=x+xs% :y$-y$+ys% 

150 IF x%>1248 x%=1248:xs%=~xs% 
160 IF x%<0 x%=0:xs%=-xs% 

170 IF y%>1024 y%=1024:ys%=~ys% 
180 IF y%<64 y%=64:ys%=-ys% 

190 UNTIL FALSE 


Lines 20-50 redefine characters 240-243 
such that when positioned together in a 
square, a ball shape is formed (see Figure 
3). Line 60 compiles a string fromtthese 
characters; since the second two must be 
printed one line below the first two, a 
linefeed (ASCII 10) and two backspaces 
(ASCII 8) are included in the string. The 
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string is then printed twice at co-ordinate 
x%,y% using GCOL plotting action 4 
(invert colour). Between the two plots, the 
*FX19 command in line 120 causes the 
computer to wait for the start of the next 
display frame, which ensures that the 
animation is smoother than it would 
otherwise be. Since we are using a two- 
colour mode, the effect of GCOL 4 is that 
the second plot cancels out the first; thus 
the ball is erased before it is moved on to 
the next position. Lines 140-180 then 
increment the x and y co-ordinates by the 
value of step%, reversing the direction if 
the ball hits the edge of the screen. step% 
can be increased or decreased to alter the 
speed of the ball. 


Next month we will look at some more 
graphics programming techniques, 
including the use of GCOL plotting actions 
1-3. B 
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130 „setup 

140 LDA #&E0:STA &8F 
150 LDA &FE68:STA &8E 
160 .loop 

170 LDA (&8E) 

180 INC &8E:BNE ret 
190 INC &8F 

200 LDX &8F:CPX #&FC:BCS setup 
210 : 

220 .ret 

230 EOR &FE68 

240 AND #&7F 

250 CMP #&23 

260 BCC loop 


270 PHA:LSR A:LSR A:LSR A:LSR A 

280 JSR nib 

290 PLA 

300 .nib 

310 AND #&0F 

320 CLC:SED:CMP #&0A:ADC #ASC”0" 

330 CLD:JMP &FFEE 

340 ]:NEXT 

350 VDU 14 

360 CALL setup 

370 REPEAT 

380 PRINT;" "; 

390 CALL loop s 
400 UNTIL 0 B 


MR. TOAD’S MACRO ROM 

Vol.11 No.4 

J.H.Phillips has spotted a bug in the 
program which won't allow an EXEC file 
to load in macros from the ADFS. This can 
be corrected by altering line 110 to use 
locations &E0 and &E1 for the index. 
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Points Arising...Points Arising...Points Arising...Points Arising... 


TEXBASE UPDATE 

Vol.11 No.3 

A line was omitted which prevents text 

being properly converted to upper case. 

This can be corrected by adding: 
235 STA &920,X 


a 
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Wordwise User’s Notebook: 
On Residential Accommodation 
and the Passing of Numbers 


by David Polak 


It’s taken for granted these days that 
integrated software packages and ranges 
of programs can ‘talk’ directly to each 
other. Computer Concepts’ ROM-LINK 
range, for instance, provides mechanisms 
for transferring data easily between word 
processor, spreadsheet, database etc, 
without the need to go via intermediate 
files. The spreadsheet program InterSheet, 
for example, offers commands such as 
GETBOX to transfer results to another 
ROM-LINK package e.g. the InterWord 
word processor. 


Sadly, Wordwise Plus (WW+) is a bit of an 
orphan in this respect; it has no software 
relatives with which it can communicate 
in this way. But it’s not completely cut off 
from the rest of the ROM world. In fact, it 
can communicate quite amicably, albeit in 
a limited way, with Basic, and thus with 
any Basic program by means of its integer 
variables A%, B%, C% etc. all the way 
to Z%. 


However, beware of using W% and P% 
since these are used in WW+ for the 
word count and page number 
respectively. It’s also worth being 
cautious about the use of A%, X%, Y% 
and C% since these are used to pass 
values to machine code routines via the 
use of the WW+ command CALL. 


RESIDENT INTEGER VARIABLES 
The Basic equivalents, known as Resident 
Integer Variables, are capable of holding 
any integer in the range -2,147 483,647 to 
+2,147,483,647. WW+ isn’t quite up to 
this, but more of that in a moment. 


WW+ cunningly uses the same locations 


in language ROM workspace to hold its 
integers, and hence values set up in Basic 
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are directly available for use by WW+, 
and vice versa. What's more, the values 
are retained over a Break and even a Ctrl- 
Break. 


For example, if in Basic command mode 
(ie. not in a program) you type B%=1234 
then enter WW+, and in menu mode 
type: 

PRINT BS 
WW+ will obligingly display the value 
1234 Similarly, if in WW+ menu mode, 
you were to type: 

D$=5678 
and subsequently in Basic command 
mode: 

PRINT D% 
the value 5678 would be displayed. 


This facility isn’t restricted to Basic’s 
command mode and WW+ menu mode. 
A value could have been set by a Basic 
program, and picked up and used by a 
WW+ segment program. In fact, that’s 
how it’s likely to prove the most useful 
- for example, using a WW+ segment 
program to produce a standard 
document, an invoice or bill say, using 
variable data generated by a Basic 
program. 


PICKING UP VALUES 
The following illustrates one way of 
picking up and using values passed from 
Basic. It’s assumed that in some prior 
execution of a Basic program the variables 
B%, D%, and E% have been assigned the 
values of day, month, and year 
respectively i.e. a date, and that 
subsequently control is passed to WW+. 
e.g. in Basic: 

50 BS=20 :D%=11 :E%=1992 
and ina suitable segment in WW+: 

SELECT TEXT 
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CURSOR TOP 

FIND "#day" 
DELETE WORD 

TYPE " "+STRS$(B%) 
FIND "#month" 
DELETE WORD 

TYPE "/"+STRS (D%) 
FIND "#year" 
DELETE WORD 

TYPE "/"+STR$(E$) 


In this case the date, 20/11/1992, has 
been passed somewhat extravagantly in 
three separate variables B%, D%, and 
E%, and inserted at the appropriate 
point in some fixed text identified by 
the keywords #day, #month, and #year. 
A more efficient approach (in terms of 
variable use) would be to transfer the 
date in a ‘packed’ form such as BCD 
(Binary Coded Decimal) which would 
only require two variables, but at the 
expense of extra code to pack and 
unpack the date. 


A date is just one example. Any integer 
values of whatever significance could 
have been passed, so long as they were in 
the range 0 to 65,535. 


NUMBER LIMITATIONS 

Observant readers will have noticed that 
the range of integer values in Basic is 
somewhat larger than in WW+. This 
arises because although Basic and WW+ 
use exactly the same locations in memory 
to store resident integer values, Basic uses 
a full 32 bits (including a sign bit), while 
WW+ only makes use of the least 
significant 16 bits (with no provision for a 


sign). 


Thus it’s not possible to pass values 
greater than 65,535 from Basic to WW+ 
(directly at any rate) since WW+ can only 
‘see’ the bottom half of the number. 
Conversely in WW+, attempting to assign 
a negative value or one greater than 
65,535 to an integer variable will produce 
the very informative error message 
“mistake”. 
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LARGER NUMBERS 
Although WW+ can’t handle values 
greater than 65,535 directly, they can be 
transferred indirectly by ‘slicing’ into two 
smaller values and using additional 
integer variables to transfer these. The 
relevant Basic code might consist of: 

1000 B%=number :E$=0 

1010 REPEAT 

1020 BS=BSDIV10 

1030 E%=E%+1 

1040 UNTIL B%<=65535 

1050 D%=N$MOD10*E% 
where the value to be transferred is taken 
from the variable number. B% transfers the 
‘top half’ of the number, D% the ‘bottom 
half’, and E% holds a power of 10 used to 
‘slice’ the original number into two 
chunks more easily digested by WW+. 


The corresponding code to reconstitute 
these chunks in WW+ might look like this: 

DS=STR$ (D8) 

REPEAT 

IF LEN(D$)=E% THEN GOTO loop 

D$="0"4D$ 

„loop 

UNTIL LEN(D$) =E% 

NS=STR$ (B%) +D$ 
in which the ‘bottom half’ of the number 
is converted and held in D$ before 
‘attaching’ it to the ‘top half’ and leaving 
the completed string in N$ for use as 
required (e.g. transfer to a list in the main 
text area perhaps). 


The reason for transferring the value in 
E% might seem a little obscure at first, but 
it’s quite simply the number of decimal 
digits, including leading zeros, required in 
the ‘bottom half’ of the number. Were this 
not taken into account, numbers would, 
on occasion, be incorrectly reconstituted 
by WW+. For example, if an attempt were 
made to transfer from Basic the value 
655005 using the above code (less the use 
of E%), the values passed in the resident 
integer variables B% and D% would be 
6550 and 5 respectively. There would be 
no indication of how many leading zeros 
apply to the value 5, or put another way, 
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what arithmetic weighting needs to be 
applied to the ‘top half’ of the number. 
Simply stringing the ‘top’ and ‘bottom’ 
together would produce 65505, which is 
too small by just under an order of 
magnitude. 


The example code above is general 
purpose, and makes no assumptions 
about the sizes of the values to be 
passed. It might prove a bit 
longwinded, and could usefully be 
simplified if the range of values to be 
transferred is known in advance. In 
contrast, it assumes the use of variables 
B%, D%, and E%, which could prove a 
touch restrictive. One way around this 
would be to arrange for repeated calls 
to Basic and subsequent execution of 
the associated WW+ segment program 
to transfer additional values, rather 
than use up extra variables for the 
purpose. 


HANDLING SIGNS 

There’s no reason why values transferred 
from Basic can’t be used in WW+ 
calculations (even large numbers, with the 
appropriate WW+ code), just so long as 
signs are taken into account; for example, 
by making use of additional variables to 
indicate the sign of numbers being 
transferred and subsequently ensuring 
that any arithmetic operation always 
gives a positive result. 


The sign of the result will have to be 
determined separately either by 
comparing relative values or applying the 
standard rules. For instance, the following 
WW++ code assumes two numbers passed 
from Basic in B% and D%, with their signs 
indicated by E% and F%; a value of 0 
indicating positive and 1 indicating 
negative. 


The WW+ requirement, in this case, is to 
produce a correctly signed string showing 
the product of B% and D%. 

IF E$=F$ THEN SS="+" 

IF E%<>F$ THEN S$="-" 
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S$=S$+STRS (BS*D$) 
This does of course assume that the 
product is going to be less than 65,535. 


The handling of signs in this way is really 
quite straightforward, if a little wasteful of 
rare variables. A more economical 
approach would be to use a ‘bit map’ held 
in just one additional variable, each bit of 
which would indicate the sign of the 
variable associated with it, where, as 
previously, 0 is positive and 1 negative. Bit 
settings could be determined by ANDing 
with the appropriate mask value e.g. the 
WW+ code to extract one particular sign 
and set up the appropriate string might be: 

IF S% AND &8000 = 0 THEN SS="+" 

IF S% AND &8000 = 1 THEN S$="-" 
where the sign ‘bit map’ is passed in S% 
and where, in this case, the sign of the 
variable associated with the most 
significant bit is required. 


Where values to be passed are small 
enough, i.e. less than 32,767, the most 
significant bit of each number can be used 
to indicate its sign. This is the most 
economical approach of all. Note, 
however, that although vaguely similar, 
this is not to be confused with the way in 
which Basic represents the sign of 
numbers (negative numbers held in twos 
complement format). 


PASSING STRINGS 

Unfortunately there are no string 
equivalents of resident integer variables. 
Thus it’s not possible to pass strings 
between Basic and WW+, not directly at 
any rate. But some limited string transfer 
is possible, in an indirect fashion. 


It can be done by loading the integer 
variables with the ASCII value 
equivalents of the characters comprising a 
string, and once control has been 
transferred, reconstructing the string from 
these. Although limited it does allow 
some string data to be transferred. For 
example in Basic, the appropriate code to 
set up the ASCII equivalents of “Beebug” 
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would be: 
100 D%=&4265 : REM "Be" 
110 E%=&6562 : REM "eb" 
120 F%=&7567 : REM "ug" $ 


and the relevant code in WW+ might be: 


AS=CHRS ((D$/256) AND&FF) +CHR$ (DSA 
ND&FF) 

B$=CHR$( (E$/256) AND&FF) +CHR$ (ESA 
ND&FF) 

CS=CHRS ( (F$/256) AND&FF) +CHRS (F&A 
ND&FF) 

SS=AS+BS+CS 
leaving 5$ holding the string “Beebug”. 


This example is fairly trivial and fixed, but it 
does show what can be done. An obvious 
enhancement would be to generalise the 
string transfer mechanism to cater for 
variable data. 


PLAYING WITH YOUR VARIABLES 
The significance of the values transferred 
via the resident integer variables can be 
literally anything e.g. stock code numbers, 
flags, component counts, costs, hours 
worked, part numbers, dates, map 
references, population figures, weights, 
calories, speeds, and so on. But one thing 
you'll almost certainly want to do is sort 
them, usually in ascending order, and that 
is what the following WW+ code will do. 


REM Set up end of data marker 
TS="@@@" 

REM Set up RETURN character 
RS=CHR$ (13) 


SELECT SEG.8 
„again 

Zò=1 

CURSOR TOP 
REPEAT 
AS=GLTS 
BS=GLTS 

IF VAL(BS)»=VAL(A$) OR BS=TS THEN 
GOTO noswap 
23=0 

CURSOR UP 2 
FKEY 3 
CURSOR DOWN 
CURSOR AT 39 
FKEY 3 

FKEY 7 
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TYPEBS+R$ 
TYPEAS 
CURSOR DOWN 
CURSOR AT 0 
.noswap 
CURSOR UP 
UNTIL B$=T$ 


IF Z$=0 THEN GOTO again 

REM Delete end of data marker 
CURSOR TOP 

FIND R$+T$ 

FKEY3 

CURSOR BOTTOM 

FKEY3 

FKEY7 


The values to be sorted are presumed to 
have been passed across already from 
Basic and set up as strings in Segment 8 
using a suitable piece of code, e.g.: 

RS=CHR$ (13) 

SELECT SEG.8 

DELETE TEXT 

TYPE STRS(A$)+R$ 

TYPE STRS(BÈ)+RS 

TYPE STR$(C%)+R$ 


etc 


TYPE «gaar 
with an end-of-data string "@@@". 


This is far from being the ultimate in code 
to transfer values; there are many 
enhancements and improvements that 
could be made. For instance, leading zeros 
are lost when values are converted to 
strings. This doesn’t affect the sort process 
since it uses the function VAL when 
comparing values. However, it might 
detract from the final presentation of the 
data. In addition, some provision for large 
and/or signed values could prove useful. 
And of course the transfer mechanism as 
illustrated, refers directly to specific 
variables, rather than generally and 
indirectly, i.e. as defined at run-time. 


Nor is the sort routine perfect. It too could 
be enhanced to provide a considerably 
more general purpose and robust facility. 
All these things, however, I leave for you 
to have fun experimenting with. B 
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The vast world of PC shareware and PD comes under the microscope 
this month, as Alan Blundell finds out just how compatible the 
Master 512 is. 


So far in this column, I have concentrated 
on software for the BBC itself, without 
considering co-processors at all. This 
hasn’t been so much a deliberate policy as 
a result of my lack of extensive 
information about software for them. Yet 
co-processors are an important aspect of 
the Beeb’s character, something which 
was uniquely Acorn (some other 
manufacturers now use similar 
techniques). With a 6502 second processor 
you can increase the speed of the BBC B, 
but with other co-processors, such as the 
Z80, 512 or 32016, you can completely 
transform the operation of the machine. 


I was asked recently if it was better to 
buy a 32016 or 512 co-processor. My 
opinion is that neither is ‘better’ than the 
other; choice depends on which suits 
your needs best. If I could have afforded 
it, I would once have loved to own a 
32016, simply for the pleasure of delving 
into it. I ended up making the far more 
practical (and economic) decision to buy 
a Master 512 80186 co-processor. 
Practical, because it would ease my life 
transferring data between my BBC and 
the PCs I use at work, and because I 
could make use of applications software 
with which I had already become 
familiar. 


My involvement with PD software for 
the BBC really began from experience of 
the vast range of PD and shareware for 
the IBM PC and compatible micros - if 
they can do it, why can’t we, I thought. 
There is now a large range of PD and 
shareware for the BBC, but this is 
dwarfed in both quantity and variety by 
the endless reaches of the PC. I had it in 
mind for a long time to test the 
compatibility of the Master 512, so far as 
non-commercial software is concerned, 
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but (as some readers will know) it took 
quite a lot longer than I thought to 
actually find the time to do it. 


You will by now have astutely guessed 
that I have actually done some testing. 
This month, therefore, I thought that I 
would step aside from BBC software to 
report on software which will be of 
interest to the significant proportion of 
BEEBUG readers who own a 512 co- 
processor. 


The first impression you will get if you 
ever look at a catalogue of PC PD and 
shareware is of the sheer amount of 
software detailed. Another major 
difference is that a larger proportion of 
the software is actually shareware. 
Because of the large number of PCs in 
the world, it is quite possible for a 
number of people to make their living 
via shareware. The example usually 
quoted is Jim Button, of ‘Buttonware’, 
who markets a range of office-type 
applications (word processor, 
spreadsheet, database), but there are 
many others. Because it is their 
livelihood, they take shareware 
registrations very seriously and an 
organisation has been set up to put 
across the message that you should be 
honest in registering shareware you 
actually use. This is the Association of 
Shareware Professionals, to which most 
of the more successful shareware authors 
belong. 


Onto the software itself. The basic fact to 
note is that, of about 60Mb of software 
tested, only about a third actually 
worked on the 512, using DOS 2.1, 
frequently with COMMAND.COM 
reloaded (one of the tips discussed by 
Robin Burton in his column). From my 


Beebug November 1992 


Public Domain Software 


own experience as a 512 user, this was 
about what I expected, and whilst I’m 
sure that many of the ‘failed’ programs 
could be made to work with ‘patch’ 
software, in many cases the real causes of 
the problem are progress and hardware 
limitations. Progress is a problem 
because the ‘standard’ PC has changed 
since the 512 was developed. Adding 
more memory would enable some of the 
software I tested to run, but not all. CGA 
isn’t exactly the standard PC display 
resolution anymore and many programs, 
particularly those with a graphical 
function, now expect something with a 
higher resolution. Hardware limitations 
are a problem because many PC 
programs ignore the ‘legal’ DOS calls to 
do some things and go straight to the 
hardware. The 512 can cope with direct 
video memory access, but wasn’t 
designed to cope with some other 
common tricks. There is little point in 
trying any of the comms software or disc 
utilities, for example. 


Office applications, by which I mean 
word processors, spreadsheets and 
databases, are the most likely to succeed. 
Almost all of the programs in this 
category which I tried actually worked. 
Of the well known WP packages, New 
York Word, Word Fugue, PC-Write, 
MindReader, ChiWrite and InText all 
worked without problems. Galaxy and 
PC-Type didn’t, for no obvious reason, 
but if you want a full-featured word 
processor, you should certainly not be 
short of choice. I found a database 
package which particularly pleased me 
when it worked: SR-Info, which is a later, 
shareware version of the dBase III clone, 
VP-Info, which had been a commercial 
product. I already knew that dBase III 
Plus, the ‘de facto’ database development 
system for the PC, worked on the 512, 
but SR-Info is a lot cheaper and does a lot 
of the same things, using the same 
commands. Again, there were failures for 
no obvious reason, such as Wampum, 
another dBase clone. 
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I tried a wide range of software, the 
biggest failure rate being in utilities, as 
you would perhaps expect. Games were 
another dodgy area, although some good 
games do work. Besides, arcade games 
aren’t the thing to go for on the 512, 
although I doubt that many people 
actually bought one for that purpose! The 
excellently named ‘Golden Wombat of 
Destiny’ adventure game worked fine, as 
did several other text-based games I 
tried. I still failed in the challenge to 
outdo Bill Gates as leader of Microsoft in 
its march to world domination, though... 


512 SPECIFIC SOFTWARE 

As I tried to say earlier, the 512 seems to 
me to be a user’s machine, rather than a 
hacker’s delight like my perception of 
the 32016. Acorn seems to have taken the 
same view, as, uniquely amongst the 
range of co-processors, no programming 
languages at all are supplied with the 
512. BBC Basic would have been the 
obvious choice, at least as far as Richard 
Russell seems to have thought when he 
wrote 512 BBC Basic. Unfortunately, 
Acorn chose not to include this excellent 
version of the language: fortunately for 
us, Richard subsequently decided to 
release it as public domain software. 


Despite the ‘no programming’ marketing 
of the 512, it does have lots of potential 
for programmers. It seems a bit odd to 
me that, with a few obvious exceptions 
(Essential Software et al), there seems to 
have been very little delving into the 
possibilities. As Robin Burton’s column 
shows, there is certainly no lack of 
interest in the 512 amongst readers. 
Wouldn’t it be interesting to see some of 
the widespread programming expertise 
built up on the BBC used to good effect 
on the 512? 


Next month, I’ll be back to normal with a 
look at BBC PD software. Master 512 
software might show up again in this 
column occasionally, if a particular 
program seems to be worth a mention. B 
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Beebug C & Stand Alone 
Generator 


Beebug C is the much acclaimed C 
programming language for the BBC 
Micro and Master 128. Although 
normally only available on more 
powerful computers, Beebug C is a full 
implementation of the Kernighan & 
Ritchie standard. Features include: 


x Runs on BBC B, B+ and M128. 

%* Comprehensive set of ANSI functions. 
* OS functions vdu, osbyte, mode etc. 
* Command line interpreter. 

%* Floating-point maths. 

%* Linker for multi-source programs. 
x Maths functions. 

%* Expandable run-time library. 

* Stand alone generator. 

%* Full macro handling facilities. 

%* Supplied on 2 ROMs & library disc 


Normal price: £79.69 inc VAT 


Offer price: £39.85 inc VAT 
Stock code: 0074 40T, 0075 80T 
Please add £2.00 carriage. 


L Mi ti a? Men 
Copyright <C> Beebug Limited 1986 
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Printwise 
Printwise is a low-cost publishing aid 
allowing you to create professional 
looking magazines, leaflets, posters etc - 
the possibilities are endless, Simply take 
your text file, use embedded commands 
to specify the font styles you require, 
and let Printwise do the rest. 


* 9 authentic fonts from 4pt to 40pt. 

* Font designer for creating new fonts. 
x Fonts may be used on the same line. 
* Italics, bold, condensed, reversed etc. 
* Proportional spacing. 

%* Subscript and superscript. 

* Left, centre, right & full justification. 
* Suitable for Epson compatible printers. 
Printwise is easy to use and requires no 
programming skills. It may be used with 
text files created on Wordwise, View, 
InterWord, Mini Office and almost any 
text editor. 


Normal price: £30.66 inc VAT 


Offer price: £15.33 inc VAT 
Stock code: 0085 40T, 0086 80T 


Please add £2.00 carriage. 
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Master ROM 


The Master ROM is a powerful 32K 
ROM packed with features to enhance 
the facilities of the Master 128. 

Disc Menu - A single command takes 
you to a full feature disc menu displaying 
all the items in the current directory. You 
can change directories or run, copy‚ 
delete, rename selected files. 

Control panel - This displays all the 
computers status settings and the ROMs 
fitted. The cursor keys may be used to 
adjust any of the settings, which may be 
saved for future loading at any time. 

Disc commands - A whole range of 
useful ADFS commands, including: 
“FIND, “FORMAT, “VERIFY, 
*BACKUP, *MERGE, *WIPE etc. 


Plus: 16K-64K Printer buffer 
Simple 16K-64K RAM disc 
Diary and automatic alarm 
Normal price: £39.84 inc VAT 


Offer price: £19.92 inc VAT 
Stock code: 0087 ROM 
Please add £2.00 carriage. 


Studio 8 


Studio 8 is a real-time studio system with 
digital recorder, rhythm and drum machines 
which give hours of entertainment. 

Studio - Allows playing and recording in 
real time with keyboard and sequencer. 
Editor - A full-screen editor allowing the 
precise editing of notes. 

Envelope editor - allows the definition of up 
to 16 amplitude and pitch envelopes. 


Instrument definer - Create up to 32 

instruments by combining pitch and 

amplitude envelopes, volume & sustain. 
Plus many more features. 


Normal price: £22.48 inc VAT 


Offer price: £11.24 inc VAT 
Stock code: 0009 80T 
Please add £2.00 carriage. 
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Masterfile II is the best selling general 
purpose database for the BBC Micro and 
Master 128. It has many powerful 
features, but is easy-to-use and ideally 
suited for home, business or school. It is 
supplied ready to run and no 
programming skills are required. 

* Menu driven for ease-of-use. 

* Fast 'tag' sorting. 

%* Flexible print layouts. 

* Global calculations. 

* File size limited only by disc capacity. 
% File append options. 

* Search for a particular match. 

* Sorting on any field or fields. 

* Direct fast access to any record. 

* Form designer. 

* Label printing facility. 

* Record insertion. 

* Example database and tag files. 


Normal price: £22.48 inc VAT 


Offer price: £11.24 inc VAT 

Stock code 0024 40T, 0025 80T, 

0081 ADFS for Master 128 only 
Please add £2.00 carriage. 


Quickcalc is an easy-to-use disc based 


spreadsheet enabling you to use the calculating 
power of your computer without any need to 
program. It is ideal for personal accounts, stock 


control, and general financial planning. 
Normal price: £18.39 inc VAT 
Offer price: £9.19 inc VAT 
Stock code: 0029 80T DFS 
Please add £2.00 carriage. 
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Record: Ò 
Name; PRESTEL 
Number: Ò1-618-1111 
Sign-on. 44444444444444,.......... 
Terminal: VIEWDATA 


Transmit 
Filter; Off 
Rate: 75 1200 


Receive 
Oft 


Standard: 2 (7+1 bits even parity? 


Echo: Off © 
XonsXotf: Off 200 220 
Colour: 7 ka 


Monitor: Off 
Band: © 
Mode: 


The Command ROM is a powerful 
communications package that may be 
both menu or command driven. 
Command may be used with Hayes and 
other intelligent modems. 

Text terminal - Use this to access 
scrolling text services such as Telecom 
Gold. XMODEM file transfer allows 
files to be sent around the world. 
Viewdata terminal - A full feature 
terminal giving access to Prestel and 
other Viewdata services. Frames may be 
saved to disc, printed, tagged etc. and a 
full feature Viewdata editor is provided. 
Telephone directory - Set up the name, 
number and log-on for services you wish 
to recall at a later date. 

Command driven - A wide range of 
commands may be used in Basic to 
create applications for your own 
individual needs. 


Normal price: £39.84 inc VAT 


Offer price: £19.92 inc VAT 
Stock code: 0073 ROM 
Please add £2.00 carriage. 


Features include: 
* 20 x 50 default spreadsheet. 
+ Load, save and print spreadsheet. 


* Simple histogram capability. 

* Individual column widths may be 
altered at any time, 

x Min, max and sum functions. 

* Very easy to use. 


* Replicate into row, column or area. 


Dumpmaster Printers 
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Hit SPACE to continue 


Dumpmaster provides fast screen dumps 
using up to 8 shades from any screen 
mode. It includes a ‘snapshot facility to 
dump screens from programs while they 
are running. A wide range of printers are 
supported, including Epson compatibles 
and the Star LC10 colour. 


Normal price: £31.68 inc VAT 


Offer price: £15.84 inc VAT 
Stock code 0053. ROM 
Please add £2.00 carriage. 


This acclaimed ROM adds over 60 
commands to maniplulate and debug 
machine code programs. Features include: 
% set breakpoints * trace % set registers 
x full-screen RAM editor * single-step 
+ disassembler % dual screens % search 
* line assembler * program relocator 


Normal price: £32.70 inc VAT 


Offer price: £16.35 inc VAT 
Stock code: 0004 ROM 
Please add £2.00 carriage. 
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This month 
we're rounding 
off our look at 
CHKDSK by 
covering those facilities that we haven’t 
examined in the past few issues. So far 
we've looked at the /F, /R and /V 
switches. 


NES 


Dos+ 


This leaves /B, /D and /L which we'll 
look at this month. There’s also 
clarification of a point from Vol.11 No. 4 
on which I’ve had a query, well more of a 
criticism really. 


BAD SECTORS/CLUSTERS 

The /B switch option of CHKDSK is 
more difficult to illustrate than the 
options we’ve already looked at, so Ill 
just explain it. /B is used (with /F to 
effect a fix) mainly when damage to the 
integrity of files is suspected or known, 
but it’s not necessarily of the kind that’s 
visible in a directory display. In effect /B 
offers a way of ensuring that all the files 
on a disc are intact, almost as if you 
loaded each of them in turn yourself. Of 
course, CHKDSK is much quicker and it 
can fix or patch some problems too if 
you wish. 


The /B switch tells CHKDSK to examine 
a disc checking for bad clusters, 
verifying that the logical data on the disc 
is readable. I’ve used the word verifying 
and you might initially think that this 
operation is much like verifying a disc. 
Since there’s a verify function in 
DISK.CMD, why does CHKDSK offer a 
similar facility? 
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512 Forum 


by Robin Burton 


The answer is, even ignoring CHKDSK’s 
other facilities, it doesn’t. This might 
seem like a minor point at first sight, but 
nothing is further from the truth; the two 
operations are very different. It’s vital 
that you appreciate this if you suspect 
disc problems and use either CHKDSK 
or verify to attempt to find out if you 
really do have a problem. The truth is 
that you need both CHKDSK and verify 
most of the time. 


In standard DOS there isn’t a direct 
equivalent to the BBC’s *VERIFY 
command, for which reason utilities like 
Pctools, Norton Utilities and others 
usually provide it. CHKDSK does not 
provide the ‘missing’ function, one 
reason being that in DOS (though not in 
the 512) discs are verified as they’re 
formatted. In fact a comparison between 
CHKDSK /B and verify is spurious 
because there are major differences 
which you must understand if you’re to 
use CHKDSK reliably. 


POINTS TO NOTE 

First, like the other CHKDSK operations, 
checking for bad blocks is based on the 
logical storage of data, not on the 
physical hardware format as it is in 
verifying. If an area of disc is faulty there 
are two possible results. Sometimes a 
fault might not matter in the short term. 
A disc fault obviously can corrupt files 
or directories, but alternatively and just 
as likely, a fault can be in an unused area 
of disc in which case, although there’s a 
real problem, your files and directories 
might be completely untouched. You can 
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even continue to use a faulty disc 
without trouble so long as you don’t hit 
one of the bad disc areas, and this fact is 
sometimes exploited in copy protection 
of DOS discs. 


Verifying a disc operates solely at the 
track and sector level. The integrity of 
DOS clusters, hence that of the logical 
data on the disc, is ignored by verifying. 
Of course, there are two sides to every 
argument, On the one hand verifying 
finds a physical disc error, regardless of 
where it occurs, so on the plus side 
verifying can confirm that a disc is 
satisfactory and fit to store data. It’s 
important that you appreciate that 
CHKDSK doesn’t do this or you could be 
risking trouble. 


However, on the negative side, while 
verifying a disc tells you if there are 
problems anywhere, it won’t and can’t 
do anything about them. If a disc fails to 
verify the usual action is to reformat it. 
Whether this succeeds or not is irrelevant 
in context, the disc is faulty and 
reformatting destroys all data, including 
directories and files that might have been 
completely sound, so all in all it’s not 
very helpful. 


Also on the negative side, whether there 
are disc faults or not, there are two major 
limitations to verifying discs. First, even 
if a disc verifies as physically satisfactory, 
there’s absolutely no guarantee that the 
files it contains are alright. For example, 
if you have a corrupted FAT there might 
be nothing at all wrong with the disc’s 
format, but there certainly is a problem 
with files. Secondly, and in practical 
terms more of a problem, even if there 
are faults, verifying tells you nothing 
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about whether or not your files are safe. 
Further, if some are not, you have no idea 
which are affected and which have 
escaped damage. 


By contrast in CHKDSK, so long as the 
areas occupied by your data are alright, 
no error will be reported. This does of 
course mean that a CHKDSK run can 
report a disc as OK even though disc 
corruption lurks elsewhere and I can 
tell you that taking this reassurance too 
far has led some people into severe 
difficulties. The danger is in forgetting 
that CHKDSK doesn’t verify the disc; it 
verifies only that the existing files and 
directories on the disc-are alright. To 
check the entire disc you must also use 
verify. So long as you keep these points 
in mind you won't be misled. 


That’s the potential ‘bad point’ about 
CHKDSK, but don’t overlook its 
powerful features because of that. As I 
said in the first CHKDSK article, it can 
help in what otherwise might be a 
disastrous situation. CHKDSK always 
concerns itself with the fact that sectors 
belong to clusters and used clusters 
belong to files, so if a sector is bad then 
so must that cluster be, hence the file that 
uses that cluster is damaged and 
CHKDSK knows this. 


By backtracking from the sector number to 
the cluster number via the FAT, CHKDSK 
works out which files or directories are 
damaged and amends the FAT to reflect 
the facts. Imagine a file that occupies say, 
ten clusters, but the fifth cluster of the file 
is faulty. The result is that the whole of the 
file is inaccessible, because an attempt to 
read it normally will encounter the bad 
cluster and will fail. 
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FIXING BAD CLUSTERS 

What CHKDSK can do in this situation 
when the /B and /F switches are used is 
to effect a fix to allow you to recover at 
least some of your data. Obviously, 
CHKDSK can’t recover file data that has 
physically disappeared or that can’t be 
read because of a CRC error or a faulty 
sector ID, but it can at least render the 
remaining data accessible. 


The first action in the above example 
would be to mark the fourth cluster, the 
last cluster of the first part of the file, as 
the new end of file cluster, then adjust 
the file length recorded in the directory 
entry to match. This means the first part 
of the file can then be accessed normally 
using its original name. Next, since the 
second portion of the original file, 
clusters six to ten now represent a chain 
of loose clusters, CHKDSK can create a 
temporary file entry in the directory so 
the last five clusters of the original file 
can also be accessed. 


Finally, in DOS, if a cluster is bad the fact 
can be recorded in the FAT. Since the FAT 
has a unique entry for every cluster 
faulty clusters can subsequently be 
avoided. In the above example the FAT 
entry for the cluster that was the fifth in 
the original file can be marked as bad, so 
future writes to the disc won’t attempt to 
re-use it. In this way, since CHKDSK 
locates faulty clusters and takes them off 
the available list, you can continue to use 
the faulty DOS disc without reformatting 
after the fix if you must. What’s more 
important is that you can use standard 
facilities to rename, copy or backup the 
recovered files prior to a permanent 
repair. 
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Although CHKDSK might make your 
data accessible and the disc logically 
sound, that’s no excuse to abandon 
good sense. If a disc does go faulty, 
even if you do use CHKDSK /B to fix it, 
you should regard it with extreme 
suspicion, removing all the files to 
backups and reformatting as soon as 
possible. As usual, if the disc won’t 
reformat immediately it should be 
scrapped, but at least in the meantime 
the bad cluster can be avoided 
automatically and the disc can be used 
with reasonable peace of mind while 
circumstances demand it. 


For floppy discs the bad block fix 
facility might not seem very useful, 
especially if you keep good backups, 
but remember that for a winchester user 
things aren’t so simple. Backing up a 
large winchester (both in DOS then in 
ADFS for the 512), reformatting it and 
then completely reloading it isn’t an 
attractive proposition, and certainly 
isn’t the sort of exercise you embark on 
cheerfully. The bad cluster option in 
CHKDSK can allow you to put off the 
evil day almost indefinitely, provided 
that you don’t have a recurring 
hardware problem. 


LINK AND DIRECTORY 

The final two CHKDSK switches are 
much less useful to most users, since 
they’re both used when disc damage is 
extremely severe. Both demand a good 
deal of manual disc editing, which in 
turn requires intimate knowledge of 
directory and FAT structures as well. 
Because of this I don’t propose to go into 
great detail about them, although I will 
explain what they do. 


Beebug November 1992 


The /D switch directs CHKDSK to 
read the entire disc looking for all directory 
clusters. These can be identified because the 
first byte of a subdirectory must be 
hexadecimal 2E, and the bytes in the cluster 
pointer must point to the root directory, 
while the second entry at byte 32 onwards 
must start with hex 2E2E and its cluster 
pointer must point to itself. These two 
entries are the single full stop and double 
full stop lines that appear as the first two 
entries on all subdirectory displays. 


If you’re slightly losing interest at this 
point I’m not surprised. All Digital 
Research has to say about it is that the 
/D switch “will try to locate all 
directories on the disc so that after a 
major disc corruption a sophisticated 
user can restore individual files and 
directories using a suitable disc editor”. 
True, but not very informative. 


What they mean is that when the ‘loose’ 
directory clusters are located you must 
read their contents’ names, cluster 
pointers, sizes, dates, etc. in an editor, 
and then manually transfer all this 
information, one entry at a time, to a 
new, valid directory so that you can once 
more gain access to the files. The /D 
option therefore, would be used if you’d 
had a corruption that had totally 
destroyed the root directory and you 
wanted to recover the entire disc. Note, 
however, that (one copy of) the FAT must 
have remained intact, otherwise this is an 
impossible exercise. 


rll say even less about /L, because it's 
even less useful. After a major FAT 
corruption it attempts to rebuild the FAT. 
The user must first manually zero all 
corrupted FAT entries, which means first 
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decoding them to see if they’re sensible, 
deleting them if not. CHKDSK will then 
take whatever valid information remains 
in the FAT, plus the start cluster pointers 
from all the directory entries it can find 
and, by putting the two together and 
guessing where gaps occur, hopefully 
arrive at a usable FAT again. This process 
is rather like one of those ‘join the dots’ 
drawings, except that in this case the 
dots don’t have numbers. 


AND FINALLY 

And finally, a point of clarification. You'll 
perhaps recall that in the last Forum, 
concerning the recovery of deleted root 
directory directories, I said that “The 
problem is that directory names don’t 
(and must not) have an extension.” I 
should have known better by now! What 
I should have said was “In DOS Plus 2.1 
the problem is that.... etc.”. 


Bear in mind the title of this column is 
512 FORUM, so remarks of this kind 
which appear to conflict with the normal 
rules for PCs probably do, because I’m 
talking about the 512. For anyone who’s 
confused, in current versions of DOS, 
subdirectory names can take the form of 
“NAME.EXT’, so if you're running a 
recent version of DOS ona PC a directory 
name of, for example, PERSONAL.TXT is 
perfectly valid, and yes, I did know that. 
However, it isn’t valid in the 512 and 
never will be whether we like it or not, 
hence the statement last month. OK now? 


That's it again for another month. I’ll be 
thinking of another topic for the next 
Forum, but I can tell you that we do have 
a bit more information on software 
compatibility, courtesy of two more 

members. B 
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Using Sideways RAM (Part 1) 


Mr Toad gives you the key to all that extra memory. 


I have practically never had anything 
published, in BEEBUG or its glossier 
rivals, which was not a sideways ROM 
or an article about sideways ROMs - and 
for good reason. It’s great fun writing 
utilities to be used with, say, View or in 
other people’s Basic programs, and these 
are naturally best written as sideways 
ROMs, because of the easy facilities for 
calling the routines. For my own 
purposes, I also often write short 
machine-code programs to do various 
little jobs, and I always do these as 
ROMs, too. 


In the Master or in any Beeb equipped 
with sideways RAM, this is by far the 
best place to put almost any piece of 
machine code; in the next few issues, 
therefore, we shall deal with the ins and 
outs of ‘sideways ROM images’, as they 
are properly called, although you can 
easily blow one into an EPROM as long 
as you stick to the conventions. 


People generally tend to shy away from 
writing ROMs (as we shall call them 
from now on) for three reasons: one, 
because they don’t quite understand 
them - a problem we hope soon to cure; 
two, they think you always have to press 
Ctrl-Break to initialise them, which is not 
true; three, they don’t see the point of 
writing a great long wodge of header- 
code for what is often a simple routine. 


To deal with the last problem first: in the 
next few issues I will provide you with 
three standard ROM headers which you 
can quickly adapt to your own purposes: 
a short header with just one star- 
command, onto which you can graft 
small routines; a medium-length job with 
a few related star-commands, as used for 
instance in Mr Toad’s Macro ROM 
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(BEEBUG Vol. 11 No. 4) and finally a 
full-sized header with a proper 
command interpreter. However long and 
major or short and temporary the routine 
you write, you can simply tack it onto 
one of these standard headers, making 
very few changes, if any, and away you 
go. If you buy the magazine disc, you 
won't even have to type them in. 


BE NICE TO MARSHAL 

rll give you an example: after dealing 
with one or two issues of ‘Mr Toad’s 
Machine Code Corner’ column, Marshal 
Anderson, who edits it for BEEBUG, 
asked me if I could send in my copy on 
disc without all the tabs, pad-spaces, 
highlight codes and w.h.y. of View, as 
they were a pain to edit out on his word 
processor on the Arc. Now, I prefer to 
put such things in as I type to get a 
decent-looking hard copy for myself, but 
it wasn’t at all hard to write a very 
simple machine-code routine to strip 
such codes out of the version which is 
sent to Marshal. It was literally a matter 
of two dozen bytes - a few minutes. How 
convenient, then, to begin by loading up 
my ‘small header’ from disc, and then to 
write the routine on the end and change 
the temporary star-command to *SAN 
(for ‘sanitize’). Twenty minutes later I 
called Marshal back to tell him the 
problem was fixed. 


Nowadays, having finished an issue of 
the column and saved it to my own 
discs, I simply type *SAN and save it 
again as pure ASCII text for Marshal; my 
!BOOT file on my MCC disc having 
CHAINed a Basic listing which 
assembles, *SRWRITEs and initialises the 
‘Sanitize’ ROM without any action on 
my part, right at the beginning. And to 
start with, all those last-mentioned 
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functions were already on the Basic shell 
of the small header and didn’t have to be 
added on the end when I wrote the 
ROM. 


Now, what was absolutely essential here 
was to be able to call this simple utility 
from within View, and that implies a star- 
command. You can only use CALL from 
Basic (or some versions of other 
languages written for the Beeb). Now 
there are, it is true, ways of calling 
‘ordinary’ machine-code by star- 
commands, such as *CODE or *GO, but 
they require parameters which are far 
more rigmarolish than a simple star- 
command, especially a ‘customised’ 
command chosen for its mnemonic 
value. You can, of course, use a star- 
command to load in a machine-code 
routine from disc and run it; this is why 
your disc drive whirrs for a moment 
before a ‘Bad command’ error - try doing 
*XYZ, and listen; the Beeb is trying to 
find and load a file with the same name 
as the star-command you have just 
issued, since all other ROMs have 
rejected it. 


This latter method is perhaps the nearest 
thing to a substitute for a sideways ROM 
routine, but it has the disadvantages that 
the code takes time to load (every time 
you call it) and that you only get one 
command per file. The other advantage 
of putting very small utilities into a ROM 
is that they are safer from corruption 
there than anywhere else, as is any 
associated data or workspace which you 
can locate after the ROM code in the 
spacious and protected SRAM slot (not 
for possible EPROMs, though). Longer 
programs may benefit from all the 
various bits of information which the 
MOS feeds to ROMs in the form of ‘calls’ 
- we'll get round to details shortly. 


This is the beauty of the star-command 
system as fully implemented on the 
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Master. Auntie Acorn has arranged that 
all the languages and environments such 
as View and Edit (which in Beeb terms 
are technically languages) will pass to the 
MOS anything beginning with an 
asterisk, and encourages third party 
software suppliers to do likewise. This 
makes available a lot of operating-system 
functions and saves each language 
having to duplicate their functions. If the 
MOS doesn’t recognise any given 
command, then that command is passed 
down the line to the other built-in 
languages - other than Basic, which is an 
exception in this system - then to the 
internal ROM socket eight, (if the user 
has put anything in it), then to any 
software which may be present in the 
SRAM slots, then to the cartridge slots. If 
nothing has recognised the command by 
now, the filing system looks for a file 
with a name identical to the command, 
as described above. If the command is 
still unrecognised, then an error is 
flagged. A superbly flexible and 
comprehensive system, which to a 
fossilised old conservative like me is 
worth any amount of windows and 
icons. 


NUTS AND BOLTS 

When you look at it in that way, the 
whole business of ‘ROM headers’ and 
‘initialisation’ can be seen in context. 
Let’s consider the nuts and bolts of what 
happens when the MOS ‘offers’ an 
unrecognised command to a ROM slot. 
The star-command is copied to a certain 
area of memory whose address is held in 
locations &F2 and &F3, and the Y register 
is loaded with an offset such that (&F2),Y 
points to the first non-asterisk character 
of the command. In the Master, the 
command is normally placed at &DCO00, 
so that &F2 holds 0 and &F3 holds &DC. 
Unless the command has been issued via 
OSCLI, ie without an asterisk, Y holds 1 
so that (&F2),Y points to the character 
after the asterisk. If you use two or more 
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asterisks, which does not constitute an 
error, then Y holds 2 or more. Just 
remember that Y holds the number of 
asterisks. The relevant MOS routine is 
situated outside the ROM area of 
memory, which runs from &8000 to 
&BFFF, so it can ‘page in’ a given ROM 
slot by placing its number in an address 
(&FE30) called ROMSEL, which is in fact 
a register of the memory-controller chip 
and not in a normal ROM or RAM chip. 
The ROM, whether it be permanent ROM 
(e.g. View), sideways RAM, the spare slot 
eight or a cartridge slot, then becomes 
part of the computer’s memory-map and 
all the other ROMs are for the moment 
disconnected. The MOS then loads the 
accumulator with 4 and does a JSR to the 
ROM - in fact, it does JSR &8003, not 
&8000, since the first three bytes are 
reserved for another purpose. The ROM 
in the slot checks whether the 
accumulator contains that particular 
number, 4. If it does, it examines the 
characters at (&F2),Y: 
CMP #4:BEQ commandCheck 


If the routine at commandCheck (or give it 
any other label you like) matches up the 
command with one of those used by 
itself, it executes the relevant code and 
hands back over to the MOS, but before 
the RTS it ‘claims’ the command by 
setting the accumulator to zero, so that 
the MOS knows that the command has 
been dealt with. You can mess about by 
altering a ROM so that it exits with A still 
holding 4; you'll find that although such 
a ROM does its stuff quite normally, the 
drive will whirr afterwards and a ‘Bad 
command’ error will be flagged. Because 
the ROM handed back over with A=4, 
the MOS assumed that the ROM had 
rejected the call. 


Suppose a given ROM does not find the 
command to be one of its own? It should 
then do nothing but exit with A still 
holding 4 and Y uncorrupted, and the 
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MOS will keep on trying to find another 
ROM which will accept the command. 
Again, you can have some fun. I have 
been known to give a friend a useful 
EPROM, but in a doctored version which 
occasionally prints messages like “Hello, 
sailor! Who’s a cheeky boy?” before 
rejecting an unrecognised star-command. 


As I said above, this ‘is it yours?’ call to a 
ROM (A holds 4) is by no means the only 
possible code which might be in the 
accumulator. There are many others, most 
of which inform the ROMs of all kinds of 
things which are going on elsewhere in 
the Beeb, but here we really only need to 
consider two of them. If the accumulator 
contains 9 when the ROM is JSRed to, 
then the MOS is signalling that a “HELP 
call has been typed in, and the ROM 
‘knows’ it should print its HELP message: 
CMP #9:BEQ helpRoutine 


BREAKING HARD 
The only other really important call, for 
our purposes, is when A holds &27, 
which means that a hard break has 
occurred and the programmer may wish 
his ROM to take certain actions such as 
redirecting vectors. Clearly, if after one of 
these ‘listen, everybody’ type calls any 
ROM exits with A holding 0, then no 
other ROM will be offered a chance to do 
HELP or whatever. This is what it means 
in the manual when it says ‘this call 
should not be claimed.’ Your code should 
do its stuff and then exit with A and Y 
holding their original values. Most 
ROMs therefore push all the registers 
before even checking the accumulator, 
and have two separate exit routines. To 
pass on calls unclaimed they do: 

PLY; PLX;PLA:RTS 
whereas to claim the call they end with 

PLY:PLX:PLA \ clear the stack 

LDA #0:RTS 


The above only works on a Master and 
any machine with the 65C12 chip. If you 
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have a bog standard Beeb you will need 
to replace PLY with PLA:TAY and PLX 
with PLA:TAX. 


PRETTY VACANT 

Now this is all very cunning stuff, but 
what happens if a given slot is 
unoccupied? In the case of an empty 
SRAM slot, &8003 will hold a zero; zero 
is the opcode for ‘BREAK’ and so JSR 
&8003 will cause a break and the rest of 
the ROM slots will never get the chance 
to check the command. Similar nasties 
will occur if the slot is slot 8 or a 
cartridge slot with no chip in it. Ouch. To 
get round this, Auntie Acorn has 
arranged that each slot has one byte 
reserved for it in a ‘table’ beginning at 
address &2A1. Before the MOS ‘offers’ 
any call to a given slot, it checks whether 
that slot’s entry in the table contains a 
certain code - because it tells the MOS 
not only that there’s a ROM present, but 
also what type of ROM, the code is called 
the ‘type-byte’. For service ROMs, which 
are the only sort we are interested in 
here, the type-byte is &82. 


Let’s consider slot 7, which is the first 
SRAM slot. If the call still hasn’t been 
claimed by the time the MOS gets down 
to slot 7, then the MOS checks whether 
address &2A8 (which is slot 7’s place in 
the table: &2A1+7 = &2A8) holds &82 or 
some other valid type-byte which would 
indicate the presence of a ROM. If it does, 
then the MOS places a 7 in ROMSEL and 
does its JSR &8003; if not, then slot 7 is 
considered to be ‘empty’ and the MOS 
passes it by and checks &2A7 to see if 
slot 6 is occupied. 


Great. Wonderful... how does the type- 
byte get put into the relevant part of the 
table? This is the famous ‘initialisation’. 
For full details see my article in BEEBUG 
Vol. 9 No. 5, but in a nutshell it’s like this: 
at power-up or after a hard break, the 
MOS pages in each ROM slot in turn and 
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checks to see whether it contains a ROM. 
If so, it puts that ROM’s type-byte into 
the appropriate place in the table and 
moves on; if the slot is found to be empty, 
the byte in the table is set to zero. Note 
that since the MOS only READS the start 
of each slot, as opposed to doing a jump 
to it, no crash is caused if the slot is 
empty. 


Thus it comes about that permanent 
software in ROM, EPROMS in cartridges 
or whatever is ‘initialised’ on power-up 
and after a hard break. ROM images in 
sideways RAM are not there on power- 
up but are loaded in from a file, so 
people often think they have to do a hard 
break after loading such an image, in 
order to initialise it, ie to get the MOS to 
place its type-byte in the table. In fact, 
there’s normally no need for a hard break 
to initialise a ROM loaded in off disc: all 
you do is put the type-byte in yourself - 
make your !BOOT file do the job after 
loading in the ROM, or - and this is my 
invariable practice - get the !BOOT file to 
CHAIN a Basic program which consists 
first of the assembly-text of the ROM and 
then a few lines to find the first ‘empty’ 
slot (by reading the table), “SRWRITE the 
assembled machine-code to that slot and 
put the appropriate type-byte into the 
table. Bingo!One functioning ROM 
without any Ctrl-Break. 


NEXT MONTH 

It’s all much quicker and easier than it 
sounds, as we shall see next time, when 
we shall also go into the question of just 
how the MOS recognises a proper ROM 
in the slot, as opposed to random bytes, 
when it does its checking. That's the 
famous ‘ROM header’. Next month 
you'll also get the first of the promised 
standard headers, as well as a FREE 
plastic tool, developed at great expense 
by the Beebug showroom staff, for 
getting teenage games freaks out of your 
computer. 
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Introducing Tree Structures 


By Mike Williams 


This month in the 
Workshop series, I want to 
move on to another form of 
data structure, the tree. This 
is one of the most important 
non-linear structures in 
computing and has many 
applications. 


A tree consists of a set of 
nodes (where each node 
contains one or more pieces 
of data). The nodes are 
linked together as a 
branching structure all 
stemming from a single 
node which is called the 
root of the tree. For 
convenience (particularly 
when drawn on paper) tree 
structures are usually 
represented with the root at 
the top, and with the 
branches projecting 
downwards (see figure 1). 


Every node in a tree is also 
the root of one or more 
subtrees, and this recursive 
approach to trees can be 
important as we shall see in 
a future article. The number 
of subtrees of a node is 
sometimes referred to as the 
degree of that node, and a 
node of degree zero (i.e. one 
with no gubtrees) is known 
as a terminal node. The 
depth of a tree is normally 
determined by the number 
of levels it exhibits - the 
example in figure 1 has four 
levels, with the root at level 
zero. 


In some instances the order 
of the subtrees of a node is 
unimportant; in others it is 
of considerable significance, 
and our exploration will 
largely be concerned with 
ordered trees. Using the 
kind of terminology found 
in family trees, we can in 
general refer to the ancestor 


and descendant of any node, in considering 
the hierarchical structure of a tree. 


There are other common examples of tree 
structures. Many technical books use a tree 
structure when numbering chapters, 
sections and subsections (e.g. Chapter 2, 
section 2.1, subsection 2.1.4 etc.). The Dewey 
system of classification used for books can 
also be viewed as a tree structure. 
Mathematical expressions, particularly when 
processed by a computer, can be analysed in 
terms of tree structures. Trees also have 
applications in data storage and in file 
handling, and in searching and sorting data. 
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Fig.1 Simple tree structure, with root A 


One form of specific tree structure is that 
known as a binary tree. In this instance each 
node has at most two subtrees, and these are 
specifically ordered as the left subtree and 

e right subtree. For example, the algebraic 
expression: 

ab - c(d/e + f/g) 

can be represented as a binary tree (see 
figure 2). 


One of the important processes concerned 
with binary trees is that of tree traversal, 
visiting each node of the tree once and once 
only. When a node is visited, we can access 
any data associated with that node and 
perform on it any op nuon we choose. 

ere are three generally recognised ways of 
traversing a binary tree: 
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Fig.2 An algebric expression represented as a 
binary tree 
Preorder Traversal 
Visit the root 
Traverse the left subtree 
Traverse the right subtree 


Inorder Traversal 
Traverse the left subtree 
Visit the root 

Traverse the right subtree 


Postorder Traversal 
Traverse the left subtree 
Traverse the right subtree 
Visit the root 


The program accompanying this Workshop 
provides an Inorder traversal of a binary tree 
using the example of figure 3. The simplest 
way to store a tree structure is by means of 
three arrays, one to hold the data at each 
node, one to hold the pointers to left 
subtrees, and one to hold the pointers to 
right subtrees. In the program, the tree data 
is given in a series of DATA statements, 
which are used to create the tree structure. A 
further procedure is then called to traverse 
the tree ‘inorder’ and display on the screen 
the associated data of each node as it is 
visited. You should find when running the 
program that it results in: 

DBAEGCHFI 


One problem which arises with tree traversal 
is that all pointers in the tree structure are 
downwards. Once a particular node has 
been reached there is no information to 
allow the ancestor node to be reached again. 
As this is an essential requirement of tree 
traversal, we have catered for this by 
implementing a simple stack structure. As 
each node is reached in the course of 
following a particular sequence of branches, 
the address of the node is pushed onto the 
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stack. A return can be made to the previous 
node by popping its address from the stack. 


Thus the program follows the left branch 
from the root to the next node. If this has a 
left branch then this is followed in turn and 
so on, stacking the addresses of each node on 
the way, until a terminal node is reached. We 
then ‘visit’ that node, printing its value, 
before following its right subtree (if any) in 
the same way. Once that has been 
accomplished, we retrace our steps to the 
previous node by popping its address from 
the stack, visit that node, and then repeat the 
process with its right subtree. The whole 
process is ane until the stack is empty 
and the whole tree has been traversed. 


A 
ORORO 


Fig.3 Example of the binary tree used in 
the program 


In the program there are two routines, 
PROCpush(v) to push a value ‘v’ onto the 
top of the stack, and FNpop to pop (or 
return) a value from the top of the stack. The 
program also uses a value of -1 to indicate an 
empty stack, and to indicate a null pointer. 


By way of experiment, you might like to 
consider how the program should be 
amended to implement either preorder or 
postorder traversal. You might also like to 
investigate what these different orderings 
might mean in relation to the algebraic 
expression illustrated in figure 2. The basic 
tree definition can also be changed by editing 
the DATA statements from line 2000 onwards. 


That's all we have space for this month, but 
we will be returning to the subject of trees 
again next time. 


Continued on page 56 
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Applications U Dise 
BUSINESS GRAPHICS - for producing graphs, charts and diagrams 
Generation 26 VIDEO CATALOGUER - catalogue and print labels for your video 
cassettes 
pee GEGE PHONE Book - an on-screen telephone book which can be easily 
edited and updated 
PERSONALISED LETTER-HEADINGS - design a stylish logo for your 
letter heads 
APPOINTMENTS DIARY - a computerised appointments diary 
MAPPING THE BRITISH ISLES - draw a map of the British Isles at 
any size 
SELECTIVE BREEDING - a superb graphical display of selective 
breeding of insects 
THE EARTH FROM SPACE - draw a picture of the Earth as seen 
from any point in space 
PERSONALISED ADDRESS BOOK - on-screen address and phone book 
PaGE DESIGNER - a page-making package for Epson compatible printers 
WORLD BY NIGHT AND Day - a display of the world showing night and day for any time and date of the year 


on the BBC Micro and Asorn Archimedes ik kk Ae 
by David Spencer and Mike Williams 


Computers are often used for file handling applications yet this is a subject 

which computer users find difficult when it comes to developing their own 

programs. File Handling for All aims to change that by providing an extensive 

and comprehensive introduction to the writing of file handling programs with 

particular reference to Basic. 

File Handling for All, written by highly experienced authors and programmers David 

Spencer and Mike Williams, offers 144 pages of text supported by many useful program 

listings. It is aimed at Basic programmers, beginners and advanced users, and anybody interested in File Handling 
and Databases on the Beeb and the Arc. However, all the file handling concepts discussed are relevant to most 
computer systems, making this a suitable introduction to file handling for all. 

The book starts with an introduction to the basic principles of file handling, and in the following chapters develops 
an in-depth look at the handling of different types of files e.g. serial files, indexed files, direct access files, and 
searching and sorting. A separate chapter is devoted to hierarchical and relational database design, and the book 
concludes with a chapter of practical advice on how best to develop file handling programs. 


The topics covered by the book include: 
Card Index Files, Serial Files, File Headers, Disc and Record Buffering, Using Pointers, 
Indexing Files, Searching Techniques, Hashing Functions, Sorting Methods, 
Testing and Debugging, Networking Conflicts, File System Calls 


The associated disc contains complete working programs based on the routines described in the book and a copy of 
Filer, a full-feature Database program originally published in BEEBUG magazinc. 
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ASTAAD 


Enhanced ASTAAD CAD program for the 
Master, offering the following features: 


full mouse and joystick control 
built-in printer dump 

speed improvement 

STEAMS image manipulator 
Keystrips for ASTAAD and STEAMS 
Comprehensive user guide 

Sample picture files 


t move Line Edge Outi 6 Forg Fix desi Abe xe Bte OEE 
n aa Kile iitim 7 eten” ud 


ASTAAD (80 track DFS) 1407a £ 5.95 ASTAAD (3.5" ADFS) 1408a £ 5.95 
Applications II (80 track DFS) 141 la £ 4.00 Applications II (3.5" ADFS) 1412a £4.00 
Applications I Disc (40/80T DFS) 1404a £4.00 Applications I Disc (3.5" ADFS) 1409a £4.00 
General Utilities Disc (40/80T DFS) 1405a £4.00 General Utilities Disc (3.5" ADFS) 1413a £4.00 
Arcade Games (40/80 track DFS) PAGla £5.95 Arcade Games (3.5" ADFS) PAG2a £5,95 
Board Games (40/80 track DFS) PBGla £5.95 Board Games (3.5" ADFS) PBG2a £5.95 


All prices include VAT where appropriate. For p&p see Membership page. 


117 Hatfield Road, St Albans, Herts ALI 4JS. 


RISC Developments Ltd, 


Board Games 


SOLITAIRE - an elegant implementation of this ancient and fascinating 
one-player game, and a complete solution for those who are unable to 
find it for themselves. 


RoLL or Honour - Score as many points as possible by throwing the 

five dice in this on-screen version of 'Yahtze'. 

PATIENCE - a very addictive version of one of the oldest and most x oa E IE a 
popular games of Patience. 


ELEVENSES - another popular version of Patience - lay down cards on 
the table in three by three grid and start turning them over until they 


add up to eleven. 

CRIBBAGE - an authentic implementation of this very traditional card 

game for two, where the object is to score points for various combinations and sequences of cards. 

TWIDDLE - a close relative of Sam Lloyd's sliding block puzzle and Rubik's cube, where you have to move numbers round a 
grid to match a pattern. 

CHINESE CHEQUERS - a traditional board game for two players, where the object is to mave your counters, following a 
pattern, and occupy the opponent's field. 

Aces HIGE - another addictive game of Patience, where the object Is to remove the cards from the table and finish with the 
aces at the head of each column. 


ROLL OF Habe 
Ply. One Twa The. Foor Five Six Mind Wisd F.iou. L.Ste, W.Str, Roll Chan, Se 


Appsll — 009 


FS 
Dir. AppsiI 


: Applications M Dise 


Lib. Libraryt CROSSWORD EDITOR - for designing, editing and solving 
pen, TAN crosswords 
we MONTHLY Desk Diary -a month-to-view calendar which can als 


bad 


Sl CD Om 09 cor DÈ punted 
Dir. Apps Lib. Library! 3D LANDSCAPES - generates three dimensional landscapes 
BOLAND REAL TIME CLOCK - a real time digital alarm clock displayed on 
the screen 
RUNNING Four TEMPERATURES - calibrates and plots up to four 
temperatures 
JULIA SETS - fascinating extensions of the Mandelbrot set 
FOREIGN LANGUAGE TESTER - foreign character definer and 
language tester 
SHARE INVESTOR - assists decision making when buying and selling shares 
LABEL PROCESSOR - lor designing and printing labels on Epson compatible printers 


GEORGE AND THE DRAGON - Rescue ‘Hideous Hilda’ from the flames 
of the dragon, but beware the flying arrows and the moving holes on 
the floor. 

EBONY CASTLE - You, the leader of a secret band, have been 
captured and thrown in the dungeons of the infamous Ebony Castle. 
Can you escape back to the countryside, fighting off the deadly 
spiders on the way and collecting the keys necessary to unlock the 
coloured doors? 

KNIGHT QUEST - You are a Knight on a quest to find the lost crown, 
hidden deep in the ruins of a weird castle inhabited by dangerous 
monsters and protected by a greedy guardian. 

PITFALL PETE - Collect all the diamonds on the screen, but try not to 
trap yourself when you dislodge the many boulders on your way. 
BUILDER BOB - Bob is trapped on the bottom of a building that's being demolished. Can you help him build his way out? 


MINEFIELD - Find your way through this grid and try to defuse the mines before they explode, but beware the monsters 
which increasingly hinder your progress. 
MANIC MECHANIC - Try to collect all the spanners and reach the broken-down generator, before the factory freezes up. 


Quan - You will have hours of entertainment trying to get all these different shapes to fit. 
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Stock Code Price 


Stock Code Price 


File Handling for All Book BKO2b £9.95 

File Handling for All Disc (40/80T DFS) BKO5a £4.75 File Handling for All Disc (3.5" ADFS) BKO7a £4.75 
Joint Offer book and disc (40/80T DFS) BKO4b £ 11.95 Joint Offer book and disc (3.5" ADFS) RKO6b £11.95 
Magscan (40 DFS) 0005a £9.95 Magscan Upgrade (40 DFS) 0011a £4.75 
Magscan (80T DFS) 0006a £ 9,95 Magscan Upgrade (80T DFS) 0010a £4.78 
Magscan (3.5" ADFS) 0007a £9.95 Magscan Upgrade (3.5” ADFS) 1458a — £4.75 


All prices include VAT where appropriate. For p&p see Membership page. 
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Designing NLQ Characters (Part 3) 


Elaine Kemp shows how to incorporate your new characters into 
text files. 


Last month, the first part of the program 
SciFont was presented, giving the 
definitions of some draft characters. This 
month the NLQ definitions are added to 
the program. If you can redefine draft 
characters, but not NLQ, then you will 
have less typing to do. If you cannot 
redefine characters, but your printer has 
an alternative character set, then much of 
the following discussion on 
incorporating new characters will be 
relevant as well. 


ENTERING THE PROGRAM 

Type in and save the program as 
ScPart2; include only the definitions of 
the characters which you are likely to 


new characters the download font must 
be selected. In View this switching 
between the two sets is achieved by 
using highlights, and in Wordwise by 
embedded commands. Characters above 
128 may be referred to as the Italic set in 
the printer manuals. For example, 
printing character 65 prints a normal A. 
Printing character 193 (65+128) produces 
an Italic A. The simplest way to access 
these characters is to send the control 
code sequence to set the top bit of any 
byte sent to the printer. This effectively 
adds 128 to the character’s ASCII value. 


ned characters on a printer in tex 


want to print, as explained last month. CO Renenber to run the Basic progran SciFont first 


CO A suitable printer driver must be used, in this case SeiDriv 


Again you must keep to the original TK 
i i HM @ 

line numbering. You should then CO Highlight 1 is defined as 131, chosen to geeet WLR, 

CO The control codes in the driver are 27,128,1 

HT 1 131 


*SPOOL the file with the name Part2. 
Load in ScPart1 from last month, then 
*EXEC Part2. Save the combined file 
with the name SciFont. When you are 
sure that you have the program |e 

working then you can delete line 1250 MAN fi 
and 2090 to 2180 as PROCdemo is no (NEE 
longer needed. The complete program, 


CO p is surrounded by highlight 1, and prints downloaded p as pi 

CO 2 is surrounded by both highlights, so the download font is selected 
SciFont, is included on this month’s 
disc. 


H 
CO HL, has now been selected 

CO Highlight 1 redefined as 132, select download font 
CO The control codes in the driver are 27,37,1,8 

CO Highlight 2 redefined as 138, set top bit 

CO The control «codes in the driver are 27,62,8,8 


CO and the top bit set, to produce the superscript 2, 


Using SciFont with View 
USING THE PROGRAM 


As explained last month the program 
SciFont should be run from Basic with 
the printer on line, then you may enter 
your word processor. If you are using 
View then you must use a printer driver. 
A good program was published in 
BEEBUG Vol.4 No.3. The DATA 
statements of that program should be 
altered to include selecting both NLQ 
and the download font, and setting the 
top bit as highlights. 


To print the normal characters the ROM 
font should be selected; to print your 
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If your new downloaded characters are 
stored in locations above 128 then, in 
order to print them, both the control code 
sequence to select the download font and 
that to set the top bit must be sent to the 
printer. Again this is achieved by 
highlights or embedded commands. The 
printer will then produce the character 
which is defined for that value. If all your 
characters are defined above 128, then the 
screen printer driver for View (BEEBUG 
Vol.7 No.10) in conjunction with the 
redefinition of the computer’s character 
set could also be used. 
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The character definitions in SciFont do 
not coincide with the Master’s extended 
character set, but by altering the fourth 
and fifth numbers in the DATA 
statements this should be easy to achieve. 
Similarly if you wish to access a character 
from the printer’s own alternative 
graphics set, then the control code 
sequences to select the alternative set and 
to set the top bit must be sent. 


A specific example should make this 
clearer. The following discussion applies 
to View, but the principles are applicable 
to other word processors. It is assumed 
that the Basic program Scifont has been 
run first, which leaves the printer with 
the internal ROM font and draft selected. 


Often the subscript and superscript 
characters obtained by control codes on 
the printer are rather small. In the program 
Scifont, the number 2, ASCII value 50, has 
been redefined as a subscript 2 in location 
50, and as a superscript 2 in location 178 
(the Italic position for 2). 


Suppose you wish to print the formula 
for the area of a circle. 
A=qnr 

Fig.1 shows a screenshot from a View 
file. Comments are included in the View 
file to indicate the function of the 
redefined highlights. This is indicated by 
CO in the margin. The first highlight 1 
(shown by an inverse video hyphen) 
selects the NLQ font. Highlight 1 is then 
redefined to select the download font, 
and highlight 2 to set the top bit of any 
characters. Highlight 1 surrounds the 
letter p, which will print out as n. ‘r’ is 
printed from the printer’s own internal 
font. The 2 is surrounded by two 
highlights. Highlight 1 again selects the 
download font, and highlight 2 (shown 
as an inverse video asterisk) sets the top 
bit. In this case a superscript 2 is printed. 
You must switch off the effect after any 
special characters have been printed, or 
else the downloaded font will remain 
selected, and then the text would contain 
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the wrong characters. In Wordwise, the 
same characters would be sandwiched 
between embedded commands in a 
similar way. 


PRINTING ITALICS 

You might have thought that to access 
the Italic character set it would have been 
simpler to select Italic by the usual 
method of Esc 52. However, for the 
Panasonic at least, this method only 
works for draft characters. After much 
frustration, it was discovered that, 
contrary to what the manual states, 
selecting Italic in NLQ mode just shears 
the character. If your characters are 
defined in positions below 128, and you 
select Italic and NLQ, then you should 
get an Italicised character. If you have a 
different printer, then you will have to 
experiment to find out what happens. 


On this month’s disc, along with the 
complete Scifont, you will find Example 
and Test, both View files, BDriver, the 
BEEBUG printer driver, and the screen 
printer driver BScreen. 


10 REM Program ScPart2 

680 : 

690 REM All the following are N.L.Q. c 
haracters 

700 PROCdata(4000,52):REM half (") 

710 PROCdata(4010,52):REM third (#) 

720 PROCdata(4020,52):REM quarter ($) 

730 PROCdata(4030,52):REM plus/minus ( 
+) 

740 PROCdata(4040,52):REM divide (/) 

750 PROCdata(4050,52):REM degrees (0) 

760 PROCdata(4060,52):REM 2 subscript 
(2) 

770 PROCdata(4070,52):REM 2 superscrip 
GT 2) 

780 PROCdata(4080,52):REM 3 subscript 
(3) 

790 PROCdata(4090,52):REM 3 superscrip 
tE (IT 3) 

800 PROCdata (4100, 52):REM 4 subscript 
(4) 
810 PROCdata(4110,52) 


:REM 4 superscrip 


47 


Designing NLQ Characters 


820 
830 


t (I 4) 


PROCdata (4120, 52) 
PROCdata (4130, 52) 


tain (I :) 


840 


PROCdata (4140, 52) : 


t of (;) 


850 
ement 
860 


PROCdata (4150, 52) 
of (I ;) 


PROCdata (4160,52) : 


equals (<) 


870 


PROCdata (4170,52) 


an (I<) 


880 


ES 


890 
(I = 
900 


PROCdata (4180, 52) 


) 
PROCdata (4190, 52) 


PROCdata (4200, 52) 


or equals (>) 


910 
than 
920 
2) 
930 
nt (I 
940 


960 

970 

980 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 


950° 


PROCdata (4210, 52) 
(I >) 
PROCdata (4220, 52) 


PROCdata (4230, 52) 
2) 

PROCdata (4240, 52) 
PROCdata (4250, 52) 
PROCdata (4260, 52) 
PROCdata (4270, 52) 
PROCdata (4280, 52) 
PROCdata (4290, 52) 
PROCdata (4300, 52) 
PROCdata (4310, 52) 
PROCdata (4320, 52) 
PROCdata (4330,52) 
PROCdata (4340, 52) 
PROCdata (4350, 52) 
PROCdata (4360, 52) 
PROCdata (4370, 52) 
PROCdata (4380, 52) 
PROCdata (4390, 52) 
PROCdata (4400, 52) 
PROCdata (4410, 52) 
PROCdata (4420, 52) 
PROCdata (4430, 52) 
PROCdata (4440, 52) 
PROCdata (4450, 52) 
PROCdata (4460, 52) 
PROCdata (4470, 52) 


:REM Contains (:) 
:REM Does not con 


REM Is an elemen 


:REM Is not an el 


REM Less than or 


:REM Much less th 
:REM Approximatel 
:REM Not equal to 
:REM Greater than 
:REM Much greater 
:REM Equivalent ( 
:REM Not equivale 


:REM Infinity (@) 
:REM Delta (D) 
:REM Phi (F) 
:REM Gamma (G) 
:REM Lambda (L) 
:REM Omega (0) 
:REM Pi (P) 
:REM Psi (I P) 
:REM Sigma (S) 
:REM Theta (T) 
:REM alpha (a) 
:REM beta (b) 
:REM delta (d) 
:REM eta (e) 
:REM phi (£) 
:REM gamma (g) 
:REM iota (i) 
:REM kappa (k) 
:REM lambda (1) 
:REM mu (m) 
:REM nu (n) 
:REM omega (o) 
:REM pi (p) 
:REM psi (I p) 


1180 
1190 
1200 
1210 
1220 
1230 


PROCdata (4480, 52) :REM rho (r) 
PROCdata (4490,52) :REM sigma (s) 
PROCdata (4500,52) :REM theta (t) 
PROCdata (4510,52) :REM tau (I t) 
PROCdata (4520,52):REM xi (x) 
PROCdata(4530,52):REM zeta (z) 
3540 REM N.L.Q. Definitions follow 
4000 DATA 27,38,2,34,34,136,32,4,64,8,2 
55,16,0,32,0,64,0,128,1,0,2,0,4,0,8,0,16 
, 132,33, 12,66, 20,130, 36, 2,36,1, 68,0, 132, 
0,0,0,0,0,0,0,0,0,0,0,0:REM half 

4010 DATA 27,38,2,35,35,137,32,4,64,8,2 
55,16,0,32,0,64,0,128,1,0,2,0,4,0,8,0,16 
,16,36,8, 68, 132,132,132,4,132,5,68,5, 68, 
6,72,4,48,0,0,0,0,0,0,0,0:REM third 

4020 DATA 27,38,2,36,36,137,32,4,64,8,2 
55,16,0,32,0,64,0,128,1,0,2,16,4, 48, 8, 80 
,16,144,33,16,66,16,132,16,8,16,15,252,0 
,16,0,16,0,16,0,0,0,0,0,0,0,0:REM quarte 
r 

4030 DATA 27,38,2,43,43,136,2,4,2,4,2,4 
2424, 2 402i 41244163, 228, 2, 4,24, 274, 
2,4,2,4,2,4,2,4,2,4,0,0,0,0,0,0,0,0,0,0, 
0,0:REM plus/minus 

040 DATA 27,38,2,47,47,137,1,0,1,0,1, 
VEE ti By WE Do 
,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0,0,0, 
,0:REM divide 


0 
1 
0 


404 
1,0 
0,1 
0,0 
4050 DATA 27,38,2,48,48,133,48,0,72,0,1 
32,0,132,0,132,0,132,0,132,0,132,0,72,0, 
48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

0,0,0,0,0,0,0,0:REM degrees 
4060 DATA 27,38,2,50,50,5,0,131,1,5,2,5 
2,9,2,9:2il Di Te Ie ze 33 0,4937 
0,0,0,0, 


0 
0 
060 DATA 
peo pe ee lew tom IN 4 
0,0,0,0,0,0,0, 
0,0,0,0:REM 2 subscript 
4070 DATA 27,38,2,178, 178, 133,32, 192,65 
, 64,129, 64,130, 64, 130, 64,132, 64, 132, 64,1 
32,64,136,64,72,64,48,64,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REM 2 s 
uperscript 

4080 DATA 27,38,2,51,51,6,2,4,2,2,2,2,2 
„152,65,2,65,2,-65,27161,2, 161,2, 161,3,17 
,3,18,2,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0:REM 3 subscript 

4090 DATA 27,38,2,179,179,134,129,0,128 
ene a ee i 


1 


38, 
Perlis 

0 

Ss 


,0,0,0,0,0,0,0,0,0, 


,168,64,168,64,168,64,196,64,196, 128,131 
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,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0;REM 3 superscript 
4100 DATA 27,38,2,52,52,7,0,4,0,12,0,20 
,0,20,0,36,0,68,0,132,0,132,1,4,2,4,3,25 
5,0,4,0,4,0,4,0,4,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0:REM 4 subscript 

110 DATA 27,38,2,180,180,135,1,0,3,0, 
,5,0,9,0,17,0,33,0,33,0,65,0,129,0,25 
P1921,0,1,071,05170,:00;:0,:0,-0, 0,0,0,0, 
,0,0,0,0,0:REM 4 superscript 

7,38,2,58,58,136,1 

,4,4,4,4,4,4,4,4,4,4, 
4,4,4,0,0,0,0,0,0 


, 


5 
DI 
0 


A 
0 
1 

A05 
A 
4 
4 


12 2 
,8,4,4,4,4,4 
4 4 vty 


PMI IM EME EME 


4,4 
,0:REM Contains 
130 DATA 27,38,2,186,186,8,3,192,4, 32, 
4,32,8,16,8,16,8,16,8,16,8, 16,255, 255,8, 
16,8,16,8,16,8,16,8,16,8,16,8,16,8,16,0, 
0,0,0,0,0,0,0,0,0,0,0:REM Does not conta 
in 
4140 DATA 27,38,2,59 
2,72,4,68,4,68,4,68,4 
4,68,4,68,4,68,4,68,4, 
0,0,0:REM 
8,2 
6,1 


4 
0 
1 
0 
4120 DAT 
8 
4 
0 
4 


59,136,1,240,2,72, 
,68,4,68,4,68,4, 68, 
68,4,68,4,68,0,0,0 
,0,0,0,0,0,0,0,0, Is an element of 
4150 DATA 27,38,2,187,187,8,7,192,9,32, 
9,32,17,16,17,16,17,16,17,16,17,16,255,2 
aay lf en DW uh spay Ra B etn sae 
7,16,17,16,0,0,0,0,0,0,0,0,0,0,0,0:REM I 
s not an element of 

4160 DATA 27,38,2,60,60,135,8,64,8, 64,8 
,64,20,32,20,32,20,32,34,16,34,16,34,16, 
65,8,65,8,65,8,128,132,128,132,128,132,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REM Less 
than or equals 

4170 DATA 27,38,2,188,188,138,3,0,4,128 
,4,128,8,64,8,64,16,32,16,32,32,16,35,16 
,68,136,68,136,136,68,136,68,16,32,16,32 
$32,16,32,16,64,8,64,8,128,4,128,4,0,0,0 
,0:REM Much less than 

4180 DATA 27,38,2,61,61,138,8,64,8,64,8 
,64,16,128,16,128,16,128,16,128,8,64,8,6 
4,8,64,8,64,8,64,4,32,4,32,4,32,4,32,8,6 
4,8,64,8,64,16,128,16,128,0,0,0,0:REM Ap 
proximately = 

4190 DATA 27,38,2,189,189,137,4,64,4, 64 
,4,64,4,68,4,72,4,80,4,96,4, 64,4, 192,5,6 
4,6,64,4,64,12, 64,20, 64,36, 64,68, 64,4, 64 
,4,64,4,64,0,0,0,0,0,0,0,0:REM Not equal 
4200 DATA 27,38,2,62, 62,135,128, 132,128 
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,132,128,132,65,8, 65,8, 65,8,34,16,34,16, 
34,16,20,32,20,32,20,32,8,64,8,64,8, 64,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REM Great 
er than or equals 

4210 DATA 27,38,2,190,190,138,128,4,128 
,4,64,8,64,8,32,16,32,16,16,32,16,32,136 
,68,136,68,68,136,68,136,35,16,32,16,16, 
32,16,32,8,64,8,64,4,128,4,128,3,0,0,0,0 
,0:REM Much greater than 

4220 DATA 27,38,2,63,63,137,17,16,17, 16 
,17,16,17,16,17,16,17,16,17,16,17,16,17, 
16,17,16,17,16,17,16,17,16,17,16,17,16,1 
7,16,17,16,17,16,17,16,0,0,0,0,0,0,0,0:R 
EM Equivalent 

4230 DATA 27,38,2,191,191,137,17,16,17, 
16,17,16,17,16,17,16,17,16,17,16,17,16,1 
7,16,255,254,17,16,17,16,17,16,17,16,17, 
16,17,16,17,16,17,16,17,16,0,0,0,0,0,0,0 
,0:REM Not equivalent 

4240 DATA 27,38,2,64,64,138,1,224, 
4,8,8,4,8,4,8,4,8,4,8,4,4,8,2,16,1 
,16,4,8,8,4,8,4,8,4,8,4,8,4,4,8,2, 
24,0,0,0,0:REM Infinity 

4250 DATA 27,38,2,68,68,138,0 
20,0,36,0,68,0,132,1,4,2,4,4,4, 
32,4,64,4,128,4,96,4,24,4,6,4,1,1 
0,0,28,0,4,0,0,0,0:REM Delta 
4260 DATA 27,38,2,70,70,138,1, 
4,32,4,32,8,16,8,16,8,16,144,9, 
,9,255,255,144,9,144,9,144,9,8, 
,16,4,32,4,32,2,64,1,128,0,0,0, 
4270 DATA 27,38,2,71,71,137,128,4, 
,255,252,128,4,128,4,128,0,128 
28,0,128,0,128,0,128,0,128,0,128,0, 
,128,0,128,0,64,0,32,0,0,0,0,0,0,0,0, 
EM Ganma 

4280 DATA 27,38,2,76,76,1 
20,0,32,0,64,0,128,1,0,2,0, 
32,0,64,0,128,0,96,0,24,0,6,0,1, 
0,0,28,0,4,0,0,0,0:REM Lambda 
4290 DATA 27,38,2,79,79,138,15,28,16, 13 
2,32, 68, 64, 36, 64, 36,128, 28,128,0,128,0,1 
28,0,128,0,128,0,128,0,128,0,128,0,128,0 
, 128,28, 64,36, 64,36, 32,68, 16, 132,15, 28,0 
,0,0,0:REM Omega 

4300 DATA 27,38,2,80,80, 137, 64,4,128,4, 
128,4,255,252,128,4,128,4,128,0,128,0,12 
8,0,128,0,128,0,128,0,128,0,128,4,128, 4, 


4 


4 
8, 


,2,64, 
‚9,144 
,8,16,8 
Phi 


38,0,4,0,1 
4,0,8,0,1 
28, 
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255,252,128,4,128,4,64,4,0,0,0,0,0,0,0,0 
:REM Pi 

4310 DATA 27,38,2,208,208, 138,128,0,128 
,0,64,0,63,128,0,64,0,32,0,32,0,16,128,1 
7,128,17,255,255,128,17,128,17,0,16,0,32 
,0,32,0,64,63,128,64,0,128,0,128,0,0,0,0 
,0:REM Psi 

4320 DATA 27,38,2,83,83,136,128,4,192,1 
2,160,20,144,36,144,36,136,68,132,132, 13 
2,132,131, 4, 131, 4, 128, 4, 128, 4, 128, 4,128, 
4,128,4,128,4,224,28,0,0,0,0,0,0,0,0,0,0 
,0,0:REM Sigma 

4330 DATA 27,38,2,84,84,137,15,192, 16,3 
2,32,16,64,8,64,8,135,4,130,4,130,4,130, 
4,130,4,130,4,130,4,130,4,135, 4, 64,8, 64, 
8,32,16,16,32,15,192,0,0,0,0,0,0,0,0:REM 
Theta 

4340 DATA 27,38,2,97,97,137,1,224,2,16, 
4,8,8,4,8,4,8,4,8,4,8,4,8,8,4,16,2,32,1, 
64,0,128,1,64,2,32,4,16,8,8,8,4,0,8,0,0, 
0,0,0,0,0,0:REM alpha 

4350 DATA 27,38,2,98,98,8, 63,255, 64, 32, 
128,32,128,16,132,16,132,16,132,16,132,1 
6,132,16,132,16,132,16,132,16,132,16, 68, 
16,42,16,17,32,0,192,0,0,0,0,0,0,0,0,0,0 
,0,0:REM beta 

4360 DATA 27,38,2,100,100,136,0,96,0,14 
4,32,136,81,8,145, 4,138, 4,138, 4, 132, 4,13 
2,4,132,4,130,4,130,4,66,4,65,4,1,8,0,13 
6,0,112,0,0,0,0,0,0,0,0,0,0,0,0:REM delt 
a 

4370 DATA 27,38,2,101,101,8,8,0,16,0,32 
,0,32,0,63,240,4,0,8,0,16,0,32,0,32,0,32 
,0,32,0,32,0,32,0,32,0,16,1,15,254,0,0,0 
,0,0,0,0,0,0,0,0,0:REM eta 

4380 DATA 27,38,2,102,102,9,3,0,4,128,8 
,64,8,64,16,32,16,32,32,16,32,16,32,16,2 
55,254,32,16,32,16,32,16,16,32,16,32,8,6 
4,8,64,4,128,3,0,0,0,0,0,0,0,0,0:REM phi 
4390 DATA 27,38,2,103,103,8,24,0,32,0,3 
2,0,16,0,8,0,4,0,2,0,1,6,0,137,0,81, 0,12 
1,0,134,1,0,2,0,4,0,72,0,48,0,0,0,0,0,0, 
0,0,0,0,0,0,0:REM gamma 

4400 DATA 27,38,2,105,105,167,0,0,0,0,0 
,0,0,0,2,0,4,0,15,248,0,4,0,4,0,4,0,8,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0:REM iota 

4410 DATA 27,38,2,107,107,134,4,0,15,25 
2,0,128,0,128,1,64,1,64,1,32,2,32,2,16,4 
,16,4,8,8,4,0,4,0,0,0,0,0,0,0,0,0,0,0,0, 


0,0,0,0,0,0,0,0:REM kappa 
4420 DATA 27,38,2,108,108,136, 64,12,128 
,16,128,32,128,64,64,128,33,0,18,0,12,0, 
2,0,1,0,0,192,0,32,0,24,0,4,0,4,0,4,0,8, 
0,0,0,0,0,0,0,0,0,0,0,0:REM lambda 

4430 DATA 27,38,2,109,109,8,0,1,63,254, 
0,64,0,32,0,16,0,16,0,16,0,16,0,16,0,16, 
0,16,0,48,0,96,63,192,0,32,0,16,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0:REM mu 

4440 DATA 27,38,2,110,110,135,8,0,8,0,4 
,0,2,0,1,0,0,196,0,52,0,12,0,8,0,16,0,32 
,0,64,16,128,9,0,6,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0:REM nu 

4450 DATA 27,38,2,111,111,137,3,240,4,8 
,8,4,0,4,0,4,0,4,0,4,0,8,0,16,15,224,0,1 
6,0,8,0,4,0,4,0,4,0,4,8,4,4,8,3,240,0,0, 
0,0,0,0,0,0:REM omega 
4460 DATA 27,38,2,112,112,137,2,0,4,4,8 
8,15,240,8,0,8,0,8,0,8,0,8,0,8,0,8,0,8, 
,0,8,0,15,240,8,8,8,4,8,4,0,8,0,0,0,0 
,0,0,0:REM pi 
470 DATA 27,38,2,240,240,10,32,0,48,0, 
8,0,6,0,1,128,0,64,0,32,0,16,0,16,0,16,6 
3,255,0,16,0,16,0,16,0,32,0,64,1,128,6,0 
,8,0,48,0,32,0,0,0,0,0:REM psi 

4480 DATA 27,38,2,114,114,6,15,255,16,6 
4,16,32,32,16,32,16,32,16,32,16,32,16, 32 
,16,16,32,16,32,8,64,7,128,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0:REM rho 

4490 DATA 27,38,2,115,115,136,1,224,2,1 
6,4,8,8,8,8,4,8,4,8,4,8,4,8,4,8,4,8,4,8, 
4,12,8,10,8,9,16,8,224,8,0,0,0,0,0,0,0,0 
,0,0,0,0,0:REM sigma 

4500 DATA 27,38,2,116,116,136,15,192,18 
,32,34,16, 66,8, 66,8, 130,4, 130, 4, 130, 4, 13 
0,4,130,4,130,4,130,4, 66,8, 66,8, 34,16, 18 
,32,15,192,0,0,0,0,0,0,0,0,0,0,0,0:REM t 
heta 

4510 DATA 27,38,2,244,244,137,4,0,4,0,8 
,0,8,0,8,0,8,0,8,0,8,0,8,0,15,248,8,4,8, 
4,8,4,8,0,8,0,8,0,8,0,8,0,16,0,0,0,0,0,0 
,0,0,0:REM tau 

4520 DATA 27,38,2,120,120,135,32,96, 80, 
144,144,136,157,8,50,9,82,9,82,9,82,9, 82 
,9,82,9,82,9,80,9,32,9,0,9,0,6,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0:REM xi 

4530 DATA 27,38,2,122,122,135,48,112,73 
,136,138,8,140,4,8,4,24,4,40,5,40,5,72,5 
,72,5,144,5,144,5,160,5,64,5,0,2,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0:REM zeta 
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The Cool Cursor 
Jim Burdus puts the bounce back in your display. 


If you have ever been bored by the 
ordinary blinking cursor, then here is 
something different that will bring a little 
excitement into the life of the poor old 
thing - and you might learn something 
about interrupts in the process! 


So get cracking and type in the listing. 
Save it as CoolSRC, and then run it. A 
compiled file will automatically be saved 
as CoolCur, which can then be started by 
typing *CoolCur. You should not type 
this again while it is running as the 
computer will hang up! Also note that it 
does not work in mode 7. 


When an interrupt occurs, the 6502 stops 
whatever it is doing and jumps via the 
interrupt request vector to an interrupt 
handling routine that takes some action 
regarding the interrupt. It then passes 
control back to the original program as 
though nothing had happened. 
Normally, the process of using interrupts 
involves enabling a certain interrupt, 
then taking action whenever it occurs, 
and clearing the interrupt condition after 
this has been done. 


The Cool Cursor program uses an 
interrupt called V-sync which occurs after 
the screen has been scanned, before the 
retrace period. It is not necessary to 
enable this interrupt, or clear it each time, 
since it is already being used by the 
operating system. Our program is only 
interested in the fact that it has occurred. 
To get the opportunity to find this out, we 
must insert what is called a wedge in the 
interrupt request vector, which will pass 
control to our own program; this then 
checks to see if the interrupt was V-sync. 
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If it was, then the cursor is moved 
slightly, and then control is passed over 
to the old interrupt routine (which then 
clears the V-sync interrupt), otherwise 
control goes straight over to the old 
interrupt routine. To get a reasonable 
speed, the cursor is only moved every 
second V-sync interrupt, after which the 
new cursor details are written to the 
cathode ray tube controller (CRTC) chip. 
You may wish to change the code used 
here to obtain different cursor effects, 
since you can move the top of the cursor 
independently from the bottom. 


10 REM Program CoolSRC 

20 REM Version B 1.0 

30 REM Author Jim Burdus 

40 REM BEEBUG November 1992 

50 REM Program subject to copyright 


100 irqlv=&204 

110 FOR pass=0 TO 3 STEP 3 
120 P%=&900 

130 [OPT pass 


150 .init 

160 \Store initial position of cursor. 
170 LDA #8:STA c_pos 

180 \Grab the interrupt vector. 
190 SEI 

200 LDA irqlv:STA old irqlv 

210 LDA iralv+1:STA old irqlv+1 
220 LDA #handler MOD 256:STA &204 
230 LDA #handler DIV 256:STA &205 
240 CLI 

250 RTS 


270 \Variable storage space. 
280 .c_pos BRK 
290 .marker BRK 
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1140 X(4) =ATN(X(4)) : RETURN 

1150 X(4)=DEG(ASN(X(4))):RETURN 

1160 X(4)=DEG(ACS(X(4))):RETURN 

1170 X(4) =DEG(ATN(X(4) ) ) : RETURN 

1180 X(4)=(EXP(X(4) ) -EXP(-X(4))) /2:RETU 
RN 

1190 X(4)=(EXP(X(4) ) #+EXP(-X(4))) /2:RETU 
RN 

1200 X(4)=(EXP(X(4) )-EXP(-X(4))) / (EXP(X 
(4) )+EXP(-X(4) ) ) : RETURN 

1210 X(4)=SIN(X(4) ) : RETURN 

1220 X(4)=COS(X(4) ) : RETURN 

1230 X(4)=TAN(X(4) ) : RETURN 

1240 X(4)=SIN(RAD(X(4) ) ) : RETURN 

1250 X(4)=COS(RAD(X(4) ) ) :RETURN 

1260 X(4)=TAN(RAD(X(4) ) ) : RETURN 

1270 X(4)=LN(X(4) ) : RETURN 

1280 X(4)=EBXP(X(4) ) : RETURN 

1290 X(4)=SQR(X(4)) : RETURN 

1300 X(4)=1/X(4) : RETURN 

1310 X(4)=PI*X (4) *X(4) /4: RETURN 

1320 X(4)=2*SOR(X(4) /PI) : RETURN 

1330 X$(1)=X$(2) :X$ (2) =X5(3) :X$(3)=x$(4 
) :X (4) =PI : PROCstack (1) : RETURN 

1340 S=1:FOR J=1 TO INT(X(4)) :S=S*J :NEX 
7T:X (4) =S:RETURN 

1350 X(4)=X(4) *X(4) : RETURN 

1360 Y=SGN(X(4)) :X(4) =Y*(ABS(X(4)) “(1/3 
)) :RETURN 

1370 : 

1380 DEF PROCinput 

1390 IF EF$-1 AND VAL(X$(4))«»0 FOR J=1 
TO 3:X$(J)=X$(J+1) : NEXT 

1400 EF$=0 

1410 X$(4)=GS:IF x$(4)="N" x$(4)="-" 
1420 IF x$(4)="." OR X$(4)="0" XS(4)="O 
1430 PROCstack(1) 

1440 REPEAT 

1450 G=GET:G$=CHR$ (G) 

1460 IF GS=";" GS="+" 

1470 IF GS="." AND (INSTR(X$(4),".")<>0 
OR INSTR(X$(4),"E")<>0) GOTO 1620 

1480 IF GS="E" AND (INSTR(X$(4), "E")<>0 
OR VAL(X$(4))=0) GOTO 1620 

1490 IF (RIGHTS(X$(4),1)="E" OR RIGHTS ( 
X$(4),2)="E-" OR RIGHTS (X$(4),2)="E+") A 
ND G$="0" GOTO 1620 


1500 IF RIGHTS (X$(4),1)<>"E" GOTO 1520 
1510 IF GS="-" OR GS="+" X$(4)=xX$(4)+G$ 
:PROCstack (4) :GOTO 1450 

1520 IF G$<>"N" GOTO 1550 

1530 IF LEFTS (X$(4),1)="-" X$(4) =MIDS (X 
$(4),2) ELSE X$(4)="-"+X$(4) 

1540 PROCstack(4) :GOTO 1620 

1550 Né= INSTR(X$(4),"E") :IF N%=0 GOTO 
1580 

1560 TS=RIGHTS (X$(4),3):IF INSTR(TS,"-" 
)=0 AND INSTR(T$, "+")=0 M$=0 ELSE M$=1 
1570 IF LEN(X$(4))»N8+M8+1 GOTO 1620 
1580 IF (X$(4)="0" OR X$(4)="-0") AND G 
Se"." GOTO 1620 

1590 IF INSTR(FS,G$)<>0 X$(4)=X$(4)+G$ 
1600 IF x$(4)="-." OR x$(4)="-0" x$(4)= 
nag: a 

1610 PROCstack (4) 

1620 UNTIL G=13 OR G=27 OR G>126 OR INS 
TR (E$, G$)<>0 

1630 ENDPROC 

1640 : 

1650 FOR J=1 TO 4:X$(J)="O":NEXT:M-0:EF 
$=0:K$="";PROCstart: PROCkeys : RETURN 

1660 FOR J=1 TO 4:X$(J)="0":NEXT: PROCst 
ack(1) :EF%=0 : RETURN 

1670 X$(4)="0":PROCstack (4) : EF$-0:RETUR 
N 

1680 M=0:PROCmem: RETURN 

1690 M=VAL (X$ (4) ) : PROCmem: RETURN 

1700 M=M+VAL (X$ (4) ) :PROCmem: RETURN 

1710 M=M-VAL (X$ (4) ) : PROCmem: RETURN 

1720 IF X$(4)<>"0" XS(1)=X$(2):X$(2)=X$ 
(3) :X$ (3) =x$ (4) 

1730 X$ (4) =STRS (M) :EF3=1 : PROCstack (1) :R 
ETURN 

1740 D$=-(D$=0) :IF D$=1 PRINTTAB(28,0) ; 
"Degree" :RETURN ELSE PRINTTAB (28,0) ; "Rad 
ian" : RETURN 

1750 T$=X$ (4) :X$ (4) =X$ (3) :X$ (3) =T$ : PROC 
stack (3) :EF%=1 : RETURN 

1760 TS=X$(4):FOR J=4 TO 2 STEP -1:X$(J 
) =X$ (J-1) :NEXT:X$ (1) =T$ : PROCstack (1) : EF$ 
=1:RETURN 

1770 : 

1780 DEF PROCkeys 

1790 PRINT"Z=help!, <DELETE> clears all 
figures" 
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1800 PRINT"£0=clear stack, fl=clear X, 
f2=cl. Mem" 

1810 PRINT"f3=Min, f4=M+, £5=M-, f6-MR" 
1820 PRINT" f7=Degree/Radian, f8=exchang 
e X&Y" 

1830 PRINT"f9=Roll Stack" :ENDPROC 

1840 : 

1850 CLS:PROCstart:IF VAL(X$(4))=0 GOTO 
1930 

1860 PRINTTAB(0,19);"Key one of +-*/* t 
o establish bottom"'"figure in stack as 
constant for the"'"corresponding operati 
on, or press"'"space bar to clear consta 
nt" 
1870 G=GET: IF G<32 GOTO 1870 
1880 IF G=32 OR VAL(X$(4))=0 KS="":GOTO 
1930 
1890 G$=CHR$ (G) :IF G$=";" GS="+" 
1900 IF GS=":" .GS="**" 
1910 IF INSTR(B1$,G$)=0 GOTO 1870 
1920 K$=X$ (4) +G$ 
1930 PROCstart : PROCkeys : RETURN 
1940 K=VAL (K$) :G$=RIGHTS (KS, 1) 

1950 PROCbin(X(4) ,K) 

1960 PROCconv: RETURN 

1970 : 

1980 DEF PROCtrap 

1990 PRINTTAB(0,7);"Inadmissible argume 
nt or operand": PROCpres : PRINTTAB(0,7) ;SP 
C(40) : PRINTTAB(0,8) ;SPC(40) : PROCstack (4) 
:ENDPROC 

2000 DEF PROCerr 

2010 IF ERR=20 PRINTTAB(0,7);"Too big" 
ELSE PRINTTAB(0,7);"Unspecified error" 
2020 PROCpres : ENDPROC 

2030 : 

2040 DEF PROCpres 

2050 PRINT"Press any key” :G=GET: ENDPROC 
2060 : 

2070 DEF PROCbin(U,V) 

2080 N%=INSTR(B1$,G$) 

2090 IF (N%=4 AND V=0) OR (N%=5 AND U<= 
0) PROCtrap:ENDPROC 

2100 ON N% GOTO2110, 2120,2130,2140, 2150 
2110 X(4)=U-V:ENDPROC 

2120 X(4)=U+V:ENDPROC 

2130 X(4) =U*V: ENDPROC 

2140 X(4)=U/V:ENDPROC 
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2150 X(4)=U*V: ENDPROC 

2160 : 

2170 DEF PROCinstr 

2180 PRINT"RPN Logic": PRINT 

2190 PRINT"= key is never required. Ent 
er number; scientific notation, e.g. 1.0 
8E-3,"'"is allowed.":PRINT 

2200 PRINT"For functions (roots, trig e 
tc) key character as per display."' "Note 
: O and D give area of circle from diame 
ter and vice versa.":PRINT 

2210 PRINT"Binary operations: key [RETU 
RN], which copies bottom line (x) to nex 
t line (y), and pushes stack up. Then ke 
y addend/subtrahend/multiplier/divisor/i 
ndex, " 

2220 PRINT"followed by one of +-*/^. St 
ack drops as operation is performed." 
2230 PRINT:PRINT"Rule: if a number cann 
ot be operated on immediately, [RETURN] 
it,"'"e.g. for 31*(17+4*11) key 31 [RETU 
RN] 17 [RETURN] 4 [RETURN] 11*+*"'" [RETU 
RN] is inoperative if value of number is 
zero.":PRINT 

2240 PRINT"If, however, x has not just 
been keyed in, and is not zero, [RETURN] 
takes"'"place automatically as next num 
ber is keyed in, and [RETURN] key need n 
ot"'"be pressed." 

2250 PRINT:PRINT"f0 to f9: fill stack w 
ith different numbers, and press keys to 
see effect.":PRINT 

2260 PRINTTAB(5); "Press any key to star 
t or continue calculation" 

2270 PRINTTAB(5); "Press Z during run to 
return to these instructions." 

2280 G=GET: ENDPROC 

2290 : 

2300 DEF PROCstart 

2310 CLS:PRINT"Memory"; TAB(22); "Mode: D 
egree" 

2320 PROCmem 

2330 IF K$<>"" PRINTTAB(22,1);"K "K$ 
2340 PROCstack (1) 

2350 PRINTTAB(0,10);"+-*/^ as in BASIC" 
2360 PRINT" (+ and * are obtainable with 
out SHIFT)": PRINT 

2370 PRINT"S=SIN, C=COS, T=TAN, AS, AC, 
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AT=ASN etc" 

2380 PRINT"HS, HC, HT=sinh etc, L=LN, X 
=EXP, R=SQR" 

2390 PRINT"Q=cube root, P=pi, O=pi*x*2/ 
4, [2 

2400 PRINT"D=2*SQR(x/pi), F=INT(x)!, I= 
1/x, N=+/-" 

2410 PRINT"J=set/clear constant, K=use 

constant": PRINT 

2420 ENDPROC 

2430 : 

2440 DEF PROCconv 

2450 X$(4)=STR$(X(4) ) :LE=INSTR(XS (4), "E 
|") :IF L$<>0 GOTO 2490 

2460 IF X(4)=0 OR ABS(X(4))>=2%31 GOTO 

2510 

2470 IF X(4)=INT(X(4)) GOTO 2510 

2480 PROCround(X(4)) :GOTO 2510 

2490 MS=LEFTS (X$(4) ,L$-1) : EXS=MIDS (X$ (4 
), L$) :MA=VAL (M$) 

2500 PROCround (MA) :X$ (4) =X$ (4) +EX$ 

2510 PROCstack (4) :EF%=1:ENDPROC 


2520 DEF PROCround(Y) 


=] 


2530 P%=1:Y1=Y 

2540 IF ABS(Y)>1E7 GOTO 2590 
2550 IF ABS(Y)<1 Y1=Y*1E8:P%=9:GOTO 259 
0 

2560 REPEAT 

2570 P$=P$+1:Y1=10*Y1 

2580 UNTIL ABS(Y1)>1E7 OR Y1=INT(Y1) 
2590 IF ABS(Y1-INT(Y1))<=0.5 Y1=INT(Y1) 
:GOTO 2610 

2600 IF ABS(INT(Y1+0.5)-Y1)«0.5 Y1=INT( 
Y1+0.5) 

2610 y$=STRS (Y1) 

2620 IF P%<>9 OR ABS(Y1)=1E8 GOTO 2640 
2630 IF SGN(Y)=-1 b$="-0":GOTO 2650 ELS 
|E b$="0":GOTO 2650 

2640 b$=LEFT$ (y$,LEN(y$) -P$+1) 

2650 c$=MID$ (y$, LEN (y$) -P$+2) 

2660 IF c$="" d$="" ELSE d$="." 

2670 X$(4)=b$+d$+c$ 

2680 IF RIGHTS (X$(4),1)="0" X$(4) =LEFTS$ 
(X$ (4) ,LEN(X$(4))-1) :GOTO 2680 

2690 IF RIGHTS (X$(4),1)="." X$(4) =LEFTS 
(X$ (4) , LEN(X$ (4) )-1) 
2700 ENDPROC 
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The Cool Cursor (continued from page 51) 


| 300 .direction BRK 

310 .old_irqlv BRK:BRK 

320 « 

330 .handler 

340 PHA:PHP:TXA: PHA: TYA: PHA 

350 \Was interrupt V-Sync? 

360 LDA &FE4D:CMP #130:BNE quit 

370 \Only move cursor every second tim 


380 LDA marker:EOR #1:STA marker:BEQ q 


390 LDA direction:BEQ dec 

400 \Cursor is moving up. 

410 INC c_pos:LDA c_pos:CMP #8:BNE ove 
r:LDA #0:STA direction 

420 .dec f 

430 \Cursor is moving down. 

440 DEC c_pos:BNE over:LDA #1:STA dire 
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ction 
450 .over 
460 \Write new cursor details to CRTC. 
470 \Top of cursor 
480 LDA #10:STA &FE00:LDA c_pos:STA &F 
E01 
490 \Bottom of cursor 
500 LDA #11:STA &FE00:LDA c_pos:STA &F 
E01 
510 \All done. Restore values and pass 
on interrupt. 
520 .quit 
530 PLA:TAY: PLA: TAX: PLP: PLA 
540 JMP (old_irqlv) 
550 :: 
560 ]:NEXT 
570 OSCLI ("SAVE CoolCur "+STRS-init+" 
+STRS~P%) B 
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Detecting Write-Protect in ADFS 


Dr John Sutton traps another user error. 


I have been writing some programs which 
display instructions on screen asking the 
user to put discs in drives and specifying 
whether the discs should be write 
protected. It would be useful for the 
program to test whether or not the user had 
acted correctly. It is easy enough to read the 
title of the root directory to check the disc 
identity, but I had not seen anything on 
checking the write protection state. 


The NEW ADVANCED USER GUIDE 
(Dickens & Holmes) mentions on page 275 
that bit 6 of the 1770 Status Register 
(&FE28 on a Master) reports on write 
protect, but using this would require some 
tricky coding. 


The March 1983 issue of BEEBUG (Vol.1 
No.10) provided a more useful clue 
reporting a DFS fault code of &12 for write 
protect. Page J11-15 of the Master 
Reference Manual amplifies this by giving 
the error codes from OSBYTE &7F. 
Although write protect is not mentioned, 
the codes that are given include several in 
the BEEBUG list. For ADFS the 
corresponding error code for OSBYTE &72 
is needed but it is not difficult to write a 
short piece of code to see what error code 
is reported after trying to write to a 
protected disc. It turns out to be &40. 


The following program demonstrates a 
test for write protect by first reading a few 
bytes from a sector and then trying to 
write the same data back to the same place 
(to avoid changing an unprotected disc). 
Simple but effective. 


10 REM Program DiscCheck 

20 REM Version B 1.0 

30 REM Author Dr J R Sutton 

40 REM BEEBUG November 1992 

50 REM Program subject to copyright 


100 MODEO 

110 DIM code &100, data &100 
120 PROCasm 

130 REPEAT 


L 
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140 REPEAT 
150 INPUT"Which Drive",N3 
160 UNTIL N%=0 OR N%=1 
170 NS=STRS (N3) 
180 PRINT'"Put test disc in drive ";N% 
190 PRINT' "When ready press any key * 
200 REPEAT UNTIL GET 
210 OSCLI ("MOUNT "+N$) 
220 CALL test 
230 IF ?&70=0 THEN PRINT"NO W P Tab" 
240 IF ?&70=&40 THEN PRINT"W P Tab Pre 
sent" 
250 UNTIL FALSE 
260 END 
270: 3 
1000 DEF PROCasm 
1010 FOR C3=0 TO 3 STEP 3 
1020 P%=code 
1030 [ 
1040 OPT C% 
1050 .pblock72 
1060 EQUB 0 
1070 EQUD data 
1080 „rw 
1090 EQUB 0 
1100 EQUB 0 
1110 „sector 
1120 EQUD &909 
1130 EQUW 1 
1140 EQUD 1 
1150 „test 
1160 LDA #&08 
1170 STA rw 
1180 LDX #pblock72 MOD &100 
1190 LDY #pblock72 DIV &100 
1200 LDA #&72 
1210 JSR &FFF1 
1220 LDA #&0A 
1230 STA rw 
1240 LDX #pblock72 MOD &100 
1250 LDY #pblock72 DIV &100 
1260 LDA #&72 
1270 JSR &FFF1 
1280 LDA pblock72 
1290 STA &70 


1300 RTS 

1310 ] 

1320 NEXT 

1330 ENDPROC B 
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BEEBUG Workshop (continued from page 43) 


10 REM Program Tree01 
20 REM Version B 1.0 
30 REM Author Mike Williams 
40 REM BEEBUG November 1992 
50 REM program subject to copyright 
60 : 
100 ON ERROR REPORT:PRINT" at ";ERL:EN 
D 
110 DIM Data$(100) ,LLink(100) ,RLink(10 
0), Stack(100) 
120 StackP=0:Stack(StackP)=-1 
130 MODE 3:PRINT'"Inorder Tree Travers 
al" a 
140 PROCcreate_tree 
150 PRINT 
160 PROCinorder (0) 
170 END 
180 : 
1000 1000 DEF PROCcreate tree 
1010 1010 LOCAL I$,N$:READ N$ 
1020 1020 FOR I%=0 TO N$-1 
1030 1030 READ Data$ (1%),LLink(1%),RLin 
k(I8) 
1040 1050 NEXT I% 
1050 1060 ENDPROC 
1060 1070 : 
1070 1080 DEF PROCinorder (root) 
1080 1090 LOCAL pointer, empty% 


1090 1100 pointer=root :empty%=FALSE 
1100 1110 REPEAT 

1110 1120 IF pointer<>-1 THEN PROCpush_ 
stack(pointer) :pointer=LLink(pointer) EL 
SE pointer=FNpop_stack:IF pointer=-1 THE 
N empty%=TRUE ELSE PRINT Data$ (pointer) + 
" "+ :pointer=RLink (pointer) 

1120 1130 UNTIL empty’ 

1130 1140 ENDPROC 

1140 1150 : 

1150 1160 DEF PROCpush_stack (v) 

1160 1170 Stack(StackP) =v 

1170 1180 StackP=StackP+1 

1180 1190 ENDPROC 

1190 1200 : 

1200 1210 DEF FNpop_stack 

1210 1220 LOCAL v 

1220 1230 IF StackP<>0 THEN StackP=Stac 
kp-1 

1230 1240 v=Stack(StackP) 

1240 1250 IF StackP=0 THEN Stack(StackP 
}s-1 

1250 1260 =v 

1260 1270 : 
2000 DATA 9 

2010 DATA A, 1, 2 
2020 DATA D,-1,-1 
2030 DATA G,-1,-1 


ASTAADS - 5" Disc (DFS) 
ASTAADS - 3.5" Disc (ADFS) 
Beebug Applics | - 5" Disc 
Beebug Applics | - 3.5"Disc 
Beebug Applics Il - 5" Disc 
Beebug Applics Il - 3.5" Disc 
Beebug Utilities - 5" Disc 
Beebug Utilities - 3.5" Disc 
Magscan Vol.1 - 10 40 Track 
Magscan Vol.1 - 10 80 Track 
Magscan Vol.1 - 10 3.5" ADFS 
Magscan Update 40 track 
Magscan Update 80 track 
Magscan Update 3.5" ADFS 
Arcade Games (5.25" 40/80T) 
Arcade Games (3.5" ) 

Board Games (5.25" 40/80T) 


Board Games (3.5") 
Masterfile ADFS M128 80 T 
Masterfile DFS 40 T 
Masterfile DFS 80 T 
Beebug C 40 Track 

Beebug C 80 Track 
Command (Hayes compatible) 
Dumpmaster || 

Exmon Il 

Master ROM 

Beebug Binder 


File Handling for All (book) 
Supporting Disc (5.25" DFS) 
Supporting Disc (3.5" ADFS) 
Book + Disc (5.25") 

Book + Disc (3.5") 


Have you got your BEEBUG Binder for 


Volume 11? 
RISC Developments Ltd, 117 Hatfield Road, St Albans, Herts AL1 4JS. Tel (0727) 40303 Fax (0727) 860263 


56 


Beebug November 1992 


a bei smid spel Yo jak! Yo 


Please do keep sending in your hints for all BBC 
and Master computers. Don't forget, if your hint 
gets published, there's a financial reward. 


NEW USE FOR OLD MACHINES 


Alex Belton 

If you've got a Master sitting around at home 
which you don’t use much, then here’s a 
great idea to prevent it gathering cobwebs. 
Simply open up the machine, remove the 
keyboard and locate the IC labelled “LM386', 
which is just right of centre and below PL9, 
the plug where the speaker attaches. Take 
your trusty screwdriver and hold it against 
pin three of the chip (counting from the 
bottom left), ensuring your finger is in 
contact with the screwdriver shaft. You 
should then hear the sound of radio coming 
from the Master’s speaker. The LM386 is the 
audio amplifier chip, and you are acting as an 
aerial; the strongest AM radio source is 
picked up. The BEEBUG offices are nicely 
situated to get Radio 5, which comes in 
handy when the cricket's on and you're stuck 
in the office! 


A permanent radio can be set up by attaching 
pin three, with a length of wire, to something 
like a radiator or water pipe (or any large 
metal object). The pipe will then act as an 
aerial, and you can continue to use your 
Master just as if nothing was connected - you 
can even hear normal sound from the Master 
at the same time as the cricket. 


RECURSIVE COMPACTION FOR ADFS 
ON THE MASTER 

Peter Vince 

Compacting ADFS discs recursively is not a 
particularly new topic, but the program given 
below does have some advantages over the 
commonly used technique of programming a 
function key to recurse. Normally the 
function key recurses until the time taken to 
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compact the disc was less than a few seconds, 
but in some cases this can cause an infinite 
loop, or can prevent the compacter from 
finishing the job. The program given here 
adopts the novel approach of counting how 
many entries there are in the output from the 
*MAP command, and if there is more than 
one entry, compaction is tried. There is not 
room for the program to be passed as a 
function key, and *COMPACT uses all the 
Master’s memory, so HIMEM is set to &1000 
to protect the program from corruption. If the 
following is entered in EDIT, then when it is 
saved it will have execution address 
&FFFFFFFE. Thus the Master will *EXEC the 
file when it is *RUN, so if the file is saved as 
ReCompact, then entering *ReCompact will 
compact the current drive completely. 


“|Recompact 

*BASIC 

NEW 

10 REM ReCompact 

20 HIMEM=&1000 

30 A3=135 

40 REPEAT 

50 PRINT 

60 OSCLI"MAP" 

70 Y%=VPOS : VÈ=VPOS 

80 REPEAT 

90 Y%=Y%-1 

100 VDU 31,0,Y% 

110 AS=CHRS ( (USR (&FFF4 ) AND&FFOO) DIV256) 

120 vou 9 

130 AS=A$+CHRS ( (USR (&FFF4) AND&FFO0) DIV256) 

140 UNTIL A$="Ad" OR Y%=0 

150 S%=V%-Y$-1 

160 IF S%>1 THEN PRINTTAB(0,V%) “There 
are still ";S%;" segments.":*COMPACT 10 70 

170 UNTIL S%=1 

180 PRINTTAB(0,V%) 

190 “FREE 

200 PRINT'''Compaction completed.''' 

210 *BASIC 


OSCLI ("EXEC") : RUN 
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Software Bargains, a member of the Micro Power Group, 
are please to announce the ARRIVAL of the 
FINAL CONSIGNMENT of ... 


BBC B 
Computers 


Here are 8 good reasons why you should ACT NOW and buy a BBC! 


@ They are new 

@ At £150.00 they are cheap 
@ All machines are supplied 
with VIEW word processor, 
as standard! 

@ All machines are supplied with 
the Disc Filing System as stand- 
ard! This means you can connect 
a disc drive straight away - our 
BBC and drive packs start at an 
incredibly low £195.70! 


@ All machines are sup- 
plied with a Speech 
ROM as standard! 

@ They include additional 
safety features such as steel 
re-inforced keyboards 

@ If you already have a BBC, 
our research shows that the 
cost to repair/replace the 
most common components 

| to wear out, such as the 


M onitors 
Philips 7502 Mono Screen ....... £85.06 
Microvitec Cub 1431 Colour£199.96 
(14" Standard a 
Microvitec Cub 1451 Colour . £238.26 
(14" Medium Res) 

Microvitec monitors are of the highest 
quality, with strong metal casing! 


BBC connecting cable - FREE! 
Prices exclude VAT; add £3.50 carriage 


\ 


-BBC Disc Drive Packs 


BBC Pack I .....scscssseeseee £195.70 
Includes BBC B and a Greyhound single 5.25" 
40/80 track drive without Power Supply Unit 

| BBC Pack 2 
| Includes BBC B and a Cumana single 5.25" 40/ 
80 track switchable drive with Power Supply Unit 
BBC Pack 3 


Includes BBC Band a Cumana dual 5.25" 40/80 
track switchable drive with Power Supply Unit 


keyboard or power supply 
unit, would be at least half 
the cost of one of our new 
ones! 

@ Our new BBCs carry a 6 
month warranty - probably 
twice as long as a repair 
warranty; plus, the guarantee 
is for the whole machine, not 
just on the component which 
has been repaired! 


Why do we say "Unused" ] 
rather than "Brand New"? 


These machines were originally manufac- 
tured for export to America. Having now 
shipped them back we have to make various 
modifications, which includes fitting a UK 
power supply and TV modulator, for effec- 
tive, safe use in the UK. So they are not 
“straight from the factory” but nonetheless 


they have never been used. 


A full specification is available on request 


Software Bargains & Mercury Games 
| Dept BBB2, C/O Northwood House, North Street, LEEDS LS7 2AA 


| TEL: 0532 436300 | FAX: 0532 423289 


Greyhound Marketing Ltd 
Cliffdale House, 376 Meanwood Road, LEEDS LS7 2JH 
0532 621111 Fax 0532 374163 


} 


For | - 4 units 
Contact 
Software Bargains 


For 5 or more units 


Contact Greyhound Marketing 
Also for TRADE enquiries 


* Please add VAT to all prices, including carriage 

* Carriage £2.50 per unit/pack; multiple orders POA 

* Official Local Authority orders welcome; or 
independent schools, headed notepaper with 


Headteacher's signature 


availability) 


* Goods despatched within 48 hrs, (subject to 


Whilst every effort has been made to ensure the accuracy of this informa- 
tion, we reserve the right to make changes & alterations without prior 
notice. Please note that these computers may not be compatible with all UK 
BBC B software, nor with hardware add-ons. 


(Prices are correct at the time of going to press, E&OE) 
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TOAD IN A HOLE 

In the June issue of BEEBUG (Vol.11 No.2) 
there is a note from Mr. Toad (is that really a 
name?) about View. Mr.Toad is wrong about 
View not having a hard space character. 
According to Acorn’s terminology, a hard 
space is any space typed at the keyboard, a 
soft space is a space inserted by View during 
justification, while an exact space is the kind 
referred to by Mr. Toad. 


Mr. Toad can be forgiven, however, as this 
character is not mentioned in the View 
manual, nor in the Dabhand Guide to View, 
but only in Acorn’s manual for the Printer 
Driver Generator. 

K.J.Clarke 


Mr. Clarke may be right in quoting Acorn’s 
terminology, but this differs from the commonly 
accepted definitions. A hard space is generally 
accepted to be one which cannot be expanded by 
software, while a soft space is one which can. 
Unfortunately Acorn do not have a monopoly on 
terminology, at least in this area. A hint on hard 
spaces in View was included in BEEBUG Vol.11 
No.2. 


PRINTING WITH TEXBASE 
In the program Search given in BEEBUG 
Vol.10 No.5 I came across a problem with the 
cancel printer codes in line 2740. As it stands 
this line may not work with some printers, 
due to the Cancel underline code. In some 
cases this does not work, and the Cancel 
Emphasized print code then prints out as an 
'F'. If the line is changed to: 

2740 IF A%=245 VDU27,53,27,45, 48, 27,70 
Then it will operate correctly. This is as a 
result of changing the Cancel underline code 
from zero (“0”) to 48, the ASCII code for zero. 


This information is given in the Star LC10 
printer handbook, and I have found that it 
works on a Canon PW-1080A printer as well. 
Similar problems can sometimes occur when 
a code of 49 is needed for a figure ‘1’. 
D.R.Clarke 


Beebug November 1992 


Thanks to Mr.Clarke for this information on what 
has proved a popular program - see also the update 
to TexBase in BEEBUG Vol.11 No.3, 


NOTE OF THANKS 
Just a brief note of thanks for the inclusion 
of my need for a Universal Second 
Processor Unit and a maths book in the 
members’ advertisements in BEEBUG Vol.11 
No.2. You may be interested to know that 
within two days of receiving the magazine, I 
had found the 2nd processor, and had some 
help with the topic sought after in the book. 
It just shows how useful that advertising 
section is. 

RJ.Lindsell 


With the difficulty experienced by some readers 
in obtaining hardware or software for the BBC 
micro, it is worth considering the use of the 
members’ ads in BEEBUG for any ‘Wants’ you 
may have, just as much as when you have items 
to dispose of. 


ADFS DISC ORGANISER REPRISE 
I was interested to see lan Crawford’s 
suggestions for modifying the ADFS Disc 
Organiser program (see BEEBUG Vol.10 
No.10). However, although Mr. Crawford's 
additions are worthwhile, they can be 
replaced by just a single line to do the job 
better: 

4935 OSCLI ("ACCESS "+from$+"."+name$+" WR") 
This is not only much simpler, but is actually 
better since it moves the file with its 
attributes intact, and does not alter the 
attributes of any other files. 


The modifications to the screen layout also 
use one more line than is essential. A more 
useful way is: 

Line 1910 - change 22 to 21 

Line 2150 - change 22 to 21 

Line 2390 - change 24 to 23 (twice) 

Line 2530 - leave as given in original 

LR.Morom 
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Personal Ads 


BEEBUG members may advertise unwanted computer hardware and software through personal ads 
(including 'wants') in BEEBUG. These are completely free of charge but please keep your ad as short as 
possible. Although we will try to include all ads received, we reserve the right to edit or reject any if 
necessary. Any ads which cannot be accommodated in one issue will be held over to the next, so please 
advise us if you do not wish us to do this. We will accept adverts for software, but prospective purchasers 
should ensure that they always receive original copies including documentation to avoid any abuse of 


this facility. 


We also accept members' Business Ads at the rate of 40p per word (inclusive of VAT) and these will be 
featured separately. Please send all ads (personal and business) to MEMBERS’ ADS, BEEBUG, 
117 Hatfield Road, St. Albans, Herts ALI 4JS. 


BBC A3000 2Mb with Acorn monitor 
and Pres Plinth, First Word Plus, Acorn 
DTP, Lemmings, PacMania, Break 147, 
ArcOmnibus, various PD demos, games 
etc. all original manuals £550 o.n.o. 
Buyer collects. Overview adds 
Viewstore, Viewspell, Viewplot, 
Viewindex and printer driver generator 
to the View & Viewsheet already on the 
Master, never used, original boxes and 
manuals £50 o.n.o. (+ postage if not 
collected). Tel. 081-654 3733. 


Z88 with 128k RAM, 128k EPROM and 
case, the ideal portable for BBC and 
Archimedes users for sale, A4 in size 
and under 2lbs in weight, has 
Pipedream built in, links easily to 
Apple Mac and IBM PC as well as 
Acorn machines £150, XOB/Tandy 
portable disc drive for Z88 with XOB 
disc manager on EPROM £100, CC 
Spellmaster EPROM £25, PC Link II 
EPROM £15. Tel. 081-743 5310. 


BEEBUG magazines Vols. 1-5 complete, 
BCPL, Ultracalc, Elite, Revs, Sleuth, 
Exmon, CC Graphics, modem, colour 
monitor, joysticks, dual 5.25" drive + 
psu, Solidisk 4Mb + RAM board, plus 
others any offers? Tel. (0628) 485168 
eves, 


BBC A3000, 2Mb RAM, external 5.25" 
Watford disc drive, Acorn colour 
monitor plus plinth, Epson LX800 
printer, PC Emulator, Impression II, 
plus Equasor, Presenter II, manuals and 
other software worth £1300 will sell for 
£850. Tel. 010-35 374 57258 after 6pm 
(Ireland). 


BEEBUG Master ROM, in original box 
£20, Morley teletext adaptor, suit BBC B 
or BBC Master £45. Tel. (0253) 767987 
after 7pm. 


Acorn 440/1 15 months old, 4Mb RAM, 


53Mb hard disc, 3.5" disc drive, colour 
monitor, excellent for Desktop 
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Publishing, games and educational 
uses, provided with software and 
printer utilities £1200 o.n.o. Tel. (0902) 
850605. 


BBC Master and colour monitor for sale 
£200. Tel. (0926) 55467. 


BBC B issue 7 with Watford MKI DDFS 
ROM board (inc. SW RAM) £150, 
40/80T disc drive (single drive in 
double case) £40, Interword £20, 
Spellmaster £20, Viewsheet £10, 
Viewstore £10, Dumpout 3 £7, Various 
games/ programmes and blank discs. 
Tel. day (0376) 321211, eve (0277) 
659317. 


Archimedes 440/1 and Taxan 770+ 
multisync monitor and various 
software £1200 o.n.o. Tel. (0533) 840990 
eves, 


WANTED: Two books, The BBC Micro 
book, Basic, Sound and Graphics by 
Jim McGregor and Alan Watt, also 
Advanced Programming Techniques 
for the BBC Micro by Jim McGregor 
and Alan Watts. Tel. (0533) 695362 
between 1900-2100. 


WANTED: Any programs or 
information on 3" compact disc for BBC 
B. Tel: 051-424 2693. 


Master 512, twin D/S 80T twin drive 
with psu, Quest Paint and mouse, 
internal cooling fan, monochrome 
(green) monitor, Gem, Dr DOS+ 2.1 
plus software £500. Tel. (0978) 823243 
day & eves please leave message. 


Switched mode psu model EXT: 90/12 
£45, Spellcheck III + ROM £17, Toolkit 
ROM £7, Print Master & ROM £17, 
Spellcheck discs £10, Quickcale disc 
£10, Overview EPROMs £60, Master OS 
ROM (old version) £20, BEEBUG discs 
£3 (list available), 2764 new EPROMs 
£2.50 ea, 2732a EPROMs £3.25 ea, 6262 


LP RAM £3.75 ea. Software supplied 
with manuals and packaging. Tel. 
(0254) 706127. 


Archimedes 310, Acorn colour monitor, 
IFEL 2Mb memory board (upgradeable 
to 4Mb), fitted with RISC OS 2 and 
MEMC1A, PC Emulator, Euclid, some 
games and PD, first class condition, 
original boxes £600, printer driver (EFF) 
for BJ printers £6. Tel. 051-606 0289. 


BBC B 40/80T disc drive, AMX Super 
Art, Trackerball, joystick, software, 
magazines, manuals £195. Tel. (0705) 
486813. 


WANTED: Music 5000 system for BBC 
B, also keyboard, MIDI interface and 
expansion unit. Tel. (0491) 872566. 


Master 128 with Epson RX80 FT printer, 
twin disc drives, lots of ROM and disc 
software, Taxan hi-res monitor, mouse 
£350. Tel. (0799) 584812 anytime. 


Archimedes 310M, 4Mb, colour VDU, 
40Mb hard disc, 2x3.5" floppy discs, PC 
emulator (1.7), Acorn ROM board plus 
Interword and SpellMaster, 64k of 
RAM, Morley teletext receiver, Epson 
RX80 9 pin printer plus two large boxes 
of fanfold paper and desktop printer 
stand, large selection of PD software 
£800. Tel. 081-890 2662. 


Master 512, colour VDU, 2x 5.25" disc 
drives, 512 co-processor, 6502 co- 
processor, AMX mouse, about 200 discs, 
Replay tape to disc hardware, lots of 
games on tape and disc, joystick, data 
recorder, BEEBUG C, programming 
language (2 ROMs on a cartridge) plus 
stand alone compiler, Pascal 
programming language (ROMs), 
Interword £400, Tel, 081-890 2662. 


A310 with monitor 4Mb memory (RISC 
Developments will take OS 3.10), PC 
Emulator £650. Tel. (0423) 565997. 
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BBC issue 7, Watford DDFS, Acorn 
ADFS, twin 40/80T disc drive, Watford 
64k ROM/RAM board, WW+, View, 
Spellmaster, Word Aid, Paint Quest & 
mouse, Philips green screen, lots of 
ROM images, lots of books, lots of 
discs, lots of mags £300 o.n.o. Tel. (0507) 
343616. 


BBC B issue 7 OS 1.2 DFS, Interword, 
Viglen ext] ROM socket £120, Taxan 
Kaga colour monitor £70, Magic Modem 
and Commsoft ROM £50, all in original 
packaging and with manuals, Tel. 021- 
230 3364 or 021-455 0795. 


512 Co-processor with mouse, 
manual and DOS 2.1 £50, 
Nightingale modem and 
Commstar ROM £30, Masterfile 
II £5, Discmaster £3, 
Dumpmaster £3, all with 
manuals, number of books at 
bargain prices, please ask for list. 
Tel. (0684) 563408, 


WANTED: Mini Office II on 
ROM, several units wanted if 
possible. Tel. (0929) 424175. 


Master 128 + 512, twin drives, 
colour monitor, manuals, Gem 
software and mouse £430, Music 
system: Master 128 + turbo twin drives, 
Music 5000; 4000 (keyboard); 2000 
(midi), manuals etc. £510, BEEBUG 
magazines (bound) vols. 1-8 £20. Tel. 
(0727) 59450. 


BBC B issue 4 (with Basic II), Internal 
fa, ZIF socket, Microvitec 14" colour 
monitor, 40/80T double sided disc drive 
with PSU, Interword, AMX Stop Press 
DTP, AMX mouse + mat, Watford DFS, 
80+ Micro User magazines with 36 
subscription discs, BEEBUG magazines, 
discs, games, utilities etc, tape to disc 
ROM, games on tape, books, leads: 
£250, also Electron, plus 1, 16" colour 
TV, View, Viewsheet, tape recorder, 
games, utilities etc. on tape, Electron 
User magazines, books, leads: £100, may 
split. Tel. (0874) 730751 after 4pm. 


WANTED: RAMROD ROM (c.c.?) with 
documentation for BBC B. Tel. (0782) 
550684 eves or w/ends, 


Master 512, DFS and ADFS, PC 
Emulator with Essential software's 
memory upgrade £150, Cumana double 
disc drive 40/80T £75, Kaga Vision III 
monitor £75 or £250 for all three, also 
various peripherals, books, ROMs and 
many software items, list sent on 
request. Tel. (0440) 702311. 


WANTED: "Reduce" algebraic software 
together with full documentation to run 
on 32016 Cambridge co-processor for 
Master. Tel. (036086) 560. 


BBC B issue 7 with vol. control, 2x 16k 
SWR's with write protect switches, 1770 
DFS, Cumana double sided CS400 
(40/80T + PSU), Acorn colour monitor 
(AKF12) with leads for BBC B and 
Archimedes (new Feb '92), Software 
discs, tapes, BBC B User & Advanced 
Guide £225 + post/delivery, worth it just 
for the monitor? Tel. (0642) 764531. 


i Public Domain Software and Shareware for the 
BBC Micro, Master and Master 512 co-processor 


Amongst the latest additions are - the sequel 


to Acornsofts' ‘Gateway to Karos' 


and Howard Spurr's ‘Disc Duplicator I 


Send £1.50 for catalogue and sampler disc to; 


BBC PD, 18 Carlton Close, Blackrod, 


Bolton BL6 5DL 


Make cheques payable to A Blundell or send an A5 


s.a.e. for more details 


BBC Master 128, CUB monitor, Cumana 
double disc 3.5 disc drive, Epson 
printer. Bargain £300. Also Cumana 
single 3.5 disc drive £50, single 5.25" disc 
drive £50. All in excellent condition. Tel. 
(0277) 654532 after 6pm. 


Master 128, 512 co-processor (DOS+, 
Gem, mouse), Acorn amber monitor, 
dual 5.25" and 3.5" drives in plinth, 6502 
second processor, Bitstik £200 Hayes to 
modem lead £5. Tel. 081-698 3772. 


Master 512, Gem, DOS etc., c/w mouse, 
3.5" drive, all discs and manuals, 
Speech!, Care Smart cartridge, Care 
ROM cartridge, Dabs Shareware 
collection Vols. I & II, Dabs 512 User 
Guide and advanced reference etc. £350 
o.n.o. Tel, (0272) 635236. 


WANTED: Software on disc for use 
with RH Light Pen (Pen-Pal)or similar, 
for BBC B or Master. Tel. (0305) 852276. 


I have a Master 128 board with a 512 
board fitted. WANTED: The 
utilities/boot up disc and Gem software 
discs. Tel. (0992) 651646. 


ROMs: Studio 8, Beebugsoft with 
40/80T disc £8, Island Logic Music 
system, BBC model B with two 40/80T 
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discs £10. Books: Music masterclass, lan 
Ritchie £5, Making Music on the BBC 
computer, lan Waugh £5, Advanced 
Sideways RAM user guide, Bruce Smith 
- for Master 128 and Compact 128 £8 
inc. disc, Advanced Programming 
Techniques for the BBC Micro, 
McGregor and Watt, 376 pages £6, 
Structured Basic (National Extension 
College), R Freeman £6, Creative 
Graphics, J Cownie £5, Programmers 
Troubleshooting Guide - BBC and 
Electron £5, all prices include postage. 
Tel. (0252) 710219. 


Archimedes 410, 8Mb RAM, 
100Mb SCSI, 30Mhz ARM 3, 
ISO multisync, Laser Direct 
high resolution LBP81, colour 
scanner, Impression II (2.1), 
Poster, Font FX, Schema, 
AutoSketch, Logistix, OCR, 
Artisan, PC Emulator, 1st 
Word Plus, over 50 fonts, lots 
of utilities and games, Archive 
and RISC User magazines, all 
as new, hardly used. Cost over 
£7500, will accept £2600 
o.v.n.o. (may split). Tel. Rudi 
081-967 4401 (day), (0462) 
441863 (eves). 


BBC B with Watford 32k shadow 
RAM board, Watford 128k ROM/RAM 
board (switch protected, fully buffered 
and 16k RAM battery backed), 
Challenger 3 256k RAM disc and 40/80 
D/D DIS disc drive, amongst other items 
are an AMX mouse, SuperArt, Stop 
Press and Replay ROMs, a spare power 
supply unit and many manuals, this is 
an excellent package for using in DTP 
with a BBC B, reason for sale: have 
upgraded to A5000 £150 o.n.o, Tel. (0532) 
755756. 


BBC B software; View 3 £10, Viewsheet 
£10, Helping Hand £10. Tel. 081-318 
5155, 


BBC B Hardware; Watford disc drive 
plinth £10, Misco Omniscope £50. Tel. 
081-318 5155. 


A3000 4Mb RAM, Pres System housing 
with hard disc, 2x3.5 and 1x5.25 floppy 
drives, serial upgrade, DFS ROM, Acorn 
DTP, 1st Word Plus, lots of other 
software, all originals, boxed with 
manuals, perfect condition, one careful 
owner £875. Tel. 051-606 0517. 


Watford CS400S 40/80 disc drive with 
PSU £50, Viewstore package in original 
box £15 and Viewspell package also in 
original box £15. (0792) 865691. 
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SPECIAL OFFERS TO BEEBUG MEMBERS 


BEEBUG members can purchase BEEBUG and RISC Developments: products at special discounted prices. 
For additional offers see the centrefold in the magazine. 


0077b C- Stand Alone Generator 44.56 0084b Command 29 88 
008ib Masterfile ADFS M128 80T 16.86 0073b Gommand(Hayes compatible) 29.88 
Ab Masterfile S 40 T 16.86 0053b Dumpmaster u 23.76 
5b Masterfil FS 80 16.86 b Exmon 24.52 
0074b Bee Track 45.21 008 Master 29.88 
0075b Bee C 80 Trac 45.21 4421b BEEBUG Binder 4.20 
SUBSCRIPTION RATES BEEBU SEEBUG & RISC USER 
Send applications fo! mbership renewals, 613.40 1 ar UK, B PO, Ch. 8. 
membership quenes and orders for back 69750 Rest ot Europ 3 Eire £42.90 
issues to the address below. All $33.50 Middle East £53.10 
membership fees, including overseas, £36.50 Americas & Africa 258.40 
should be in pound: ling drawn (for $39.50 Elsewhere £62.50 


BACK ISSUE PRICES Volume Magazine 5"DISC 3.5"Disc 
r issue 6 00 £3.00 £3.00 
All overseas items are sent airmail. We will accept 7 £1.10 £3.50 £3.50 
official UK orders for subscriptions and back 8 £1.30 £4.00 £4.00 
issues, but please note that there will be a £1 9 £1.60 £4.75 £4.75 
handling charge for orders under owhi 10 £1.90 £475 £4.75 
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Upgrading to an Archimedes 


We know that many BEEBUG 
readers have already upgraded to an 
Archimedes, and no doubt many 
more will choose to follow a similar 
route. For their benefit we offer our 
advice to help them make a sensible 
decision on whether to upgrade and 
if so, what path to take. 


Any prices quoted relate to our 
associated company Beebug Ltd., 
but note that all prices, particularly 
those on trade-ins and secondhand 
items, are likely to change without 
notice. You should always telephone 
or write for the latest information. 


Archimedes A5000 


What System to Choose 

All Archimedes systems still use the 
RISC OS 2 operating system, except 
the A5000 and A4 which use RISC 
OS 3. Based on the experience of 
existing users, we would strongly 
recommend a minimum of 2Mb of 
RAM. Most users find a hard disc 
adds significantly to the convenience 
of using an Archimedes, but you can 
always add a low-cost hard drive 
later, and more memory, but check 
on the likely price of future 
expansions - it is not necessarily the 
same for all machines. If you might 
be interested in more specialised 
add-ons (scanners, digitisers,etc.) 
then check the expansion capability 
of your preferred system. 


Compatibility and Transferability 
You will need to decide to what 
extent you wish to continue to use 
existing discs and disc drives on an 
Archimedes. An Archimedes and a 
BBC micro can be directly connected 
for transfer of files. You can also 
connect a 5.25” drive to an 


BEEBUG Ltd. 


For further information on all Archimedes systems contact 
117 Hatfield Road, St Albans, Herts AL1 4JS. Tel. 0727 40303 Fax 0727 860263 


Archimedes via an additional 
interface to continue to access 5.25” 
discs (ADFS format). Our DFS 
Reader will also allow files to be 
transferred to the Arc from DFS 
format discs. Much software will run 
directly on a Archimedes, or via the 
6502 emulator. However, consider 
this carefully; in our experience, 
despite prior misgivings, most 
Archimedes users find that they 
rapidly adjust to the Desktop 
environment of-the Archimedes, and 
quickly abandon the software and 
data of their old system after an initial 
period. 


Software for the Archimedes 
The Archimedes is supplied 
complete with a range of basic 
applications software. Before 
embarking on any further purchases 
it may be better to familiarise yourself 
with the new machine. Most users 
look for a word processor (or DTP 
package), maybe a spreadsheet, or a 
database, plus other more specialist 
software. We cannot give detailed 
guidance here, but back issues of 
RISC User contain a wealth of useful 


systems (except the A5000) are 
priced without monitor. The details 
given in the table are minimum 
specifications of the different 
Archimedes models. Note that unlike 
a BBC micro, there is seldom much 
need for a second floppy disc drive 
on an Archimedes. 


A3000 Learning Curve 


It may also be possible to trade in an 
existing monitor and/or disc drive, but 
check if your existing monitor is 
suitable for use with an Archimedes 
first. You may find it better to 
advertise your BBC system in 


A310 1Mb RAM 
A410 1Mb RAM 


+++++ 


A3000 1Mb RAM 


+* Acorn standard colour monitor 


Model B (Issue 7) 

Model B (issue 7) + DFS 
Master 128 

Master Compact 


information - we can advise on 
suitable issues. 


General Advice 

It is advisable to discuss your 
requirements with the BEEBUG 
technical team before making a final 
decision on what you want. Try to 
anticipate future expansion needs at 
the outset. Note that Archimedes 


Archimedes Systems - Typical or Current Prices 


A420 2Mb RAM, 20Mb hard drive 
A440 4Mb RAM, 40Mb hard drive 


* 5000, 2Mb RAM, 40Mb hard drive 
All systems above include a single floppy disc drive. 
New (*) and secondhand (+) - all prices inc. VAT. 


The A5000 price includes a multiscan colour monitor. 


BBC Micros - Typical Trade-in Prices 


Secondhand New 

£350 

£590 

£675 

£750 

£425 £ 703.83 
£1761.33 

£145 £ 234.94 


£ 35 
£75 
£125 
£ 50 


BEEBUG and sell privately - this 
applies particularly to any software 
and hardware add-ons which cannot 
be accepted for a trade-in. In future, 
all personal ads for Archimedes 
systems in RISC User will also be 
included in BEEBUG. You may. also 
defer a trade-in until a later date 
provided you make this clear at the 
time of purchase. 


